"Klasse" mit "Property"s

[qb-tim]

Aus dem Thema: "Hintergrund"-Prozedur...



markusj hat folgendes geschrieben:
Dann kontrolliere doch einfach den Zugriff auf deine Variablen ... dass schreit nach einer Klasse mit einer Property, die die Variable vertritt ... soll die Variable geändert werden, wird zuerst der neue Wert überprüft und dann abhängig davon gehandelt!


Appropos Klasse und Property...

Nehmen wir mal das Beispiel mit den sterbenden Figuren...

Gut wäre dann:

Delphi-Quellcode:

Figur[x].Gesundheit // Integer
Figur[x].Lebend // Boolean (False = Tod)

// usw.

Wie deklariere ich die? (Mein Problem liegt nicht nur darin, einen Array zu integrieren)

[Khabarakh]

Wäre es für den Einstieg in OOP nicht klüger, sich ein Tutorial zu dem Thema zu schnappen, anstatt sich Beispielcode geben zu lassen?
Meistgenannte Tutorialseite in der DP ist wohl www.dsdt.info.

[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 ]

[Luckie]

Ein Klöassentutorial gibt es auch von mir: http://delphitutorials.michael-puff.de