conditional expressions (PHP-Code in Delphi umsetzten)

[chest3rs]

Zitat von Bernhard Geyer:

Glücklicherweise gibt es kein Konstrukt. Ich hab mich schon immer zu C++-Zeiten über solchen unlesbaren Code geärgert wenn noch viel längere Zeilen dabei rausgekommen sind.

Ich wollte damit eigentlich Platz sparen... Dann greife ich lieber zur übersichlichen Altenative.

Zitat von Grolle:

Hi,

bei den Jedis gibt es noch das folgende Konstrukt (JclSysUtils.pas):
CheckBox1.Checked := iff(1=1, true, false); Viele Grüße ...

Zitat von Sharky:

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;

Gute Idee, man kann das mit einer zusätzlichen Funktion lösen.

Danke für eure schnelle Hilfe.