Zitat von
alcaeus:
Ich weiß nicht ob wir das schon hatten, aber eine bedingte Zuweisung wäre gut, ungefähr so wie in C und PHP:
Variable := (Bedingung) ? (True-Wert) : (False-Wert);
Ich habe mir eine kleine
Unit geschieben in der z.B. eine Funktion
iif für die von mir benötigten Typen existiert.
Ist nicht perfekt, aber funktioniert
Delphi-Quellcode:
function iif(Bedingung: Boolean; TrueWert, FalseWert: Integer):Integer; overload;
begin
if Bedingung then Result := TrueWert else Result := FalseWert;
end;
function iif(Bedingung: Boolean; TrueWert, FalseWert: string):string; overload;
begin
if Bedingung then Result := TrueWert else Result := FalseWert;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := iif(1=1, 'True', 'False');
end;
Was man auch oft sieht:
Delphi-Quellcode:
const
Bool2Str : array[Boolean] of String = ('False', 'True');
...
begin
Caption := Bool2Str[1=1];
end;