"Klasse" mit "Property"s

[mkinzler]

Delphi-Quellcode:

TFigur = class
  private
    FGesundheit: Single;
  public 
     procedure setGesundheit ( value: Single);
     function getLebend: Boolean;
  published
     property Gesundheit: single read FGesundheit write setGesundheit;
     Property Lebend: Boolean read getLebend;
end;

procedure TFigur.setGesundheit( Value: Single);
begin
    if Value >=0 and Value <=1 then FGesundheit := Value;
end;

function getLebend: Boolean;
begin
  if FGesundheit > 0 then result := True else Result := False;
end;

[Edit: Ich sehe gerade du hast für Gesundheit Integer gewählt; ist aber egal kannste ja anpassen, das Prinzip sollte nun klar sein oder Tut lsesn ]