Hallo zusammen,
ich habe folgende (vereinfachte) Klassenstruktur
Delphi-Quellcode:
TMethode = class
private
FNo: Integer;
FName: String;
public
property No: Integer read FNo write FNo;
property Name: String read FName write FName;
constructor Create;
destructor Destroy; reintroduce;
end;
TAnalyse = class
private
FNo: Integer;
FName: String;
FMethode : TMethode;
public
property No: Integer read FNo write FNo;
property Name: String read FName write FName;
property Methode: TMethode read FMethode write FMethode;
constructor Create;
destructor Destroy; reintroduce;
end;
begin
Label1.Caption := Analyse.Methode.Name;
end;
Die Zuweisung in der letzten Zeile würde natürlich fehschlagen, wenn der Analyse keine gültige Methode zugewiesen ist. Wie fange ich diesen Fall am Besten ab:
- Erstellung einer Dummy-Methode, die im Falle des nicht Vorhandenseins der Analyse zugewiesen wird?
- Jedes mal mit if assigned(Analyse.Methode) then
überprüfen?
- Andere, elegantere Möglichkeit?
Danke
Gerd