Zugriff auf Unterklasse absichern

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

[Zacherl]

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.

[TiGü]

Zitat von Zacherl:

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.

Leider nicht, es werden alle Funktion für die drei Argumente ausgeführt. Kann man auch schnell hinterherdebuggen:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  System.Math;

var
  Res: Integer;

function GiveDecision: Boolean;
begin
  Writeln('GiveDecision');
  Result := Boolean(RandomRange(0, 1));
end;

function GiveFive: Integer;
begin
  Writeln('GiveFive');
  Result := 5;
end;

function GiveFour: Integer;
begin
  Writeln('GiveFour');
  Result := 4;
end;

begin
  try
    Res := IfThen(GiveDecision, GiveFive, GiveFour);
    Writeln('Res: ' + Res.ToString);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

[DeddyH]

Da es ja hier um einen String geht, dürfte das IfThen aus StrUtils gemeint sein:

Zitat von StrUtils (Delphi Berlin):

Delphi-Quellcode:

function IfThen(AValue: Boolean; const ATrue: string;
  AFalse: string = ''): string;
begin
  if AValue then
    Result := ATrue
  else
    Result := AFalse;
end;

Das sollte doch gefahrlos anzuwenden sein wie gezeigt.

[edit] Nee, Denkfehler, es wird ja trotzdem darauf zugegriffen. [/edit]

[bra]

Es wird ja schon beim Übergeben an die Funktion ausgewertet, da kracht es schon

[DeddyH]

Japp, siehe mein Edit.

[Zacherl]

Zitat von bra:

Es wird ja schon beim Übergeben an die Funktion ausgewertet, da kracht es schon

Achja logisch. Zu viel C programmiert in letzter Zeit

Könnte man sich höchstens mit anonymen Methoden noch was zusammenbasteln:

Delphi-Quellcode:

class function TTernaryOp.Execute<T>(Condition: Boolean; const ATrue, AFalse: TFunc<T>): T;
begin
  if Condition then
  begin
    Result := ATrue;
  end else
  begin
    Result := AFalse;
  end;
end;

oder falls ausreichend auch:
class function TTernaryOp.Execute<T>(Condition: Boolean; const ATrue: TFunc<T>; const AFalse: T): T; Ist natürlich alles nicht wirklich schön.

Edit: Roter Kasten?

[Uwe Raabe]

Ich will auch noch meinen Senf dazu geben

Man kann dem Property Name in TMethode auch einen smarten Getter verpassen, dann spart man sich das Null-Objekt:

Delphi-Quellcode:

type
  TMethode = class
  private
    FName: String;
    function GetName: String;
  public
    property Name: String read GetName write FName;
  end;

function TMethode.GetName: String;
begin
  if (Self = nil) then Exit('');
  Result := FName;
end;

[Wosi]

Zitat von DeddyH:

Da es ja hier um einen String geht, dürfte das IfThen aus StrUtils gemeint sein:

Zitat von StrUtils (Delphi Berlin):

Delphi-Quellcode:

function IfThen(AValue: Boolean; const ATrue: string;
  AFalse: string = ''): string;
begin
  if AValue then
    Result := ATrue
  else
    Result := AFalse;
end;

Das sollte doch gefahrlos anzuwenden sein wie gezeigt.

[edit] Nee, Denkfehler, es wird ja trotzdem darauf zugegriffen. [/edit]

Um die Auswertung von Analyse.Method.Name nur im Erfolgsfall durchzuführen, müsste man anstelle eines String-Parameters ein TFunc<String> verwenden:

Delphi-Quellcode:

function IfThen(AValue: Boolean; const ATrueFunc: TFunc<String>;
  AFalse: string = ''): string;
begin
  if AValue then
    Result := ATrueFunc()
  else
    Result := AFalse;
end;

Der Aufruf sähe dann so aus:


IfThen(Assigned(Analyse.Method), function: String begin Result := Analyse.Method.Name end);
Und da diese Schreibweise ein wenig aufwendig ist, kann man auch gleich bei

Delphi-Quellcode:

if Assigned(Analyse.Method) then 
  Label1.Caption := Analyse.Method.Name;

bleiben.