Hallo zusammen,

ich habe folgende (vereinfachte) Klassenstruktur

zusammenfalten · markieren

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

Die "elegante" Möglichkeit ist was andere Sprachen als "Elvis-Operator" oder (etwas seriöser) "Null-Propagation" kennen. Delphi hat das leider nicht.

Bleiben Möglichkeit 1 und 2: Entweder du belegst die "FMethode"-Referenz schon im TAnalyse-Konstruktor mit einer gültigen Dummy/Null-Instanz, oder du prüfst halt jedes mal. Beides ist legitim, wichtig IMO nur dass es vernünftig dokumentiert ist ob man sich drauf verlassen kann dass die Referenz niemals nil ist oder man gefälligst vorher prüft.

Es gibt bei Delphi die IfThen-Funktion, die ähnlich wie der Elvis-Operator (kannte die Bezeichnung bisher gar nicht) arbeitet.

Label1.Caption := IfThen(Assigned(Analyse.Methode), Analyse.Methode.Name, '');
Ist aber kein wirklich schöner Code.

Zitat von bra:

Es gibt bei Delphi die IfThen-Funktion, die ähnlich wie der Elvis-Operator (kannte die Bezeichnung bisher gar nicht) arbeitet.

Label1.Caption := IfThen(Assigned(Analyse.Methode), Analyse.Methode.Name, '');
Ist aber kein wirklich schöner Code.

Der vermutlich auch nicht funktioniert, wenn Analyse.Methode NIL ist.

cu

Richtig - Er würde ja erst alle Parameter auswerten (und scheitern) bevor er diese komische IfThen -Methode überhaupt betreten würde.

Zitat von zagota:

Zitat von bra:

Es gibt bei Delphi die IfThen-Funktion, die ähnlich wie der Elvis-Operator (kannte die Bezeichnung bisher gar nicht) arbeitet.

Label1.Caption := IfThen(Assigned(Analyse.Methode), Analyse.Methode.Name, '');
Ist aber kein wirklich schöner Code.

Der vermutlich auch nicht funktioniert, wenn Analyse.Methode NIL ist.

Zitat von Der schöne Günther:

Richtig - Er würde ja erst alle Parameter auswerten (und scheitern) bevor er diese komische IfThen -Methode überhaupt betreten würde.

Verstehe ich hier etwas falsch und IfThen soll nicht den ternären Operator simulieren? Wenn ich richtig liege, würde nämlich nur Assigned(Analyse.Method) ausgewertet - was ja vollkommen legitim ist - und dann abhängig vom Ergebnis das erste- oder zweite Argument zurückgegeben.

Zitat von zagota:

Der vermutlich auch nicht funktioniert, wenn Analyse.Methode NIL ist.

Stimmt, da bin ich auch schonmal drüber gestolpert

Man kann TAnalyse ggf. auch ein Property oder eine Funktion (Get)MethodeName spendieren, wo die Nil-Prüfung dann direkt gekapselt ist und man immer einen sinnvollen Text zurück erhält.

Eine ganz andere Frage:

destructor Destroy; reintroduce;

Zitat von Der schöne Günther:

Eine ganz andere Frage:

destructor Destroy; reintroduce;

Das hab ich mich auch grade gefragt.

Die Fehlermeldung ist berechtig, aber anstatt den Fehler zu beheben, wird hier die Meldung deaktiviert.