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
]