Unit-Design - was bevorzugt ihr?

[Uwe Raabe]

Zitat von a.def:

Mir ging es auf die Nerven, dass es von offizieller Seit nur eine davon gab.

In System.Math sind noch sechs andere. Fehlt nur die für Boolean.

[a.def]

Zitat von Uwe Raabe:

In System.Math sind noch sechs andere.

Kommt mir ein bisschen vor wie die Suche nach den Eiern an Ostern

[DeddyH]

Könnte man das nicht auch so lösen (ungetestet)?

Delphi-Quellcode:

type
  TGenericCompare<T> = record
  public
    class function IfThen(Expression: Boolean; const AThen, AElse: T): T; static;
  end;

class function TGenericCompare<T>.IfThen(Expression: Boolean; const AThen,
  AElse: T): T;
begin
  if Expression then
    Result := AThen
  else
    Result := AElse;
end;

Aufruf dann z.B.

Delphi-Quellcode:

procedure TfrmTest.ButtonTestClick(Sender: TObject);
var
  s: string;
begin
  s := TGenericCompare<string>.IfThen(1 = 1, 'Ja', 'Nein');
  ShowMessage(s);
end;

[jaenicke]

Kann man, so etwas ähnliches benutze ich selbst auch, nur dass ich den generischen Parameter der Methode statt der Klasse bzw. dem Record gegeben habe.

[Uwe Raabe]

Der Nachteil dieser Funktion im Gegensatz zum direkten Ausschreiben ist halt, daß beide Ergebnisse als Funktionsparameter ausgewertet werden. Das mag nicht immer wünschenswert sein:

IfThen(Sender <> nil, Sender.Classname, '');

[DeddyH]

War ja nur 'ne Idee, zig Überladungen für alle möglichen Datentypen machen den Code halt unübersichtlich IMO.

[jaenicke]

Ihr sprecht ja von zwei verschiedenen Sachen. Uwes Hinweis gilt ja für beide Lösungen mit IfThen. Deshalb ist IfThen ja auch nicht sinnvoll für zeitkritische Codestellen.