Einzelnen Beitrag anzeigen

chest3rs

Registriert seit: 15. Okt 2006
Ort: Berlin
84 Beiträge
 
Delphi 7 Personal
 
#7

Re: conditional expressions (PHP-Code in Delphi umsetzten)

  Alt 8. Sep 2008, 10:59
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.
  Mit Zitat antworten Zitat