Darüber muss man sich nicht raus reden. Solche Leichen hat wohl fast jeder im Keller, der die Ansistring-Umstellung hinter sich hat
Meine ist aktuell....
Delphi-Quellcode:
function IfThen(aValue: Boolean; const ATrue, AFalse: Integer): Integer; overload;
begin
if aValue then
Result := ATrue
else
Result := AFalse;
end;
function IfThen(aValue: Boolean; const ATrue, AFalse: string): string; overload;
begin
if aValue then
Result := ATrue
else
Result := AFalse;
end;
function IfThen(aValue: Boolean; const ATrue, AFalse: Boolean): Boolean; overload;
begin
if aValue then
Result := ATrue
else
Result := AFalse;
end;
Mir ging es auf die Nerven, dass es von offizieller Seit nur eine davon gab. Also habe ich mir die genommen, in meine Sammlung gepackt und zwei hinzugefügt.
Auf diese Art und Weise konnte ich viel Code sparen alà
Delphi-Quellcode:
// Vorher
if A = B then
s := 'C'
else
s := 'D';
// Nachher
s := IfThen(A = B, 'C', 'D');