[Ruz]

Читал не мало статей, но толком не догнал. Вот мне нужно создавать n картинок (спрайтов) и мне нужно сделать что то вроде этого:

ai1.health
ai1.attack
что-то вроде property в object inspector.

Помогите пожалуйста

[NumLock]

Код:

interface

type
  TAI = class
  public
    function Health: Integer;
    procedure Attack;
  end;

implementation

procedure TAI.Attack;
begin
  // do it
end;

function TAI.Health: Integer;
begin
  Result:=0;
end;

>>

Код:

var
  ai: TAI;
  i: Integer;
begin
  ai:=TAI.Create;
  try
    ai.Attack;
    i:=ai.Health;
  finally
    ai.Free;
  end;
end;