conditional expressions (PHP-Code in Delphi umsetzten)

[Sharky]

Zitat von Bernhard Geyer:

Glücklicherweise gibt es kein Konstrukt. ....

Gibt es nicht?

Delphi-Quellcode:

uses
 StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  blubb : String;
begin
  blubb := 'hell';
  blubb := ifthen (blubb='hell','dunkel','hell');
  ShowMessage(blubb);
end;