conditional expressions (PHP-Code in Delphi umsetzten)

[chest3rs]

Guten Tag,

ich programmiere grad mit PHP und bin über "conditional expressions" gestolpert.

PHP:

$somestr = 'hell';

$somestr = ($somestr == 'hell') ? 'dunkel' : 'hell';


Mit Delphi sieht das so aus:

if somestr = 'hell' then somestr := 'dunkel' else somestr := 'hell'; Ich möchte wissen, ob ich den Delphi-Code ähnlich wie in PHP umsetzen kann und mir die if-Abfrage sparen kann.

MFG

[DeddyH]

Nein, dazu gibt es AFAIK in Delphi kein Äquivalent.

[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.

[Grolle]

Hi,

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

[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;

[alcaeus]

Es gibt das Konstrukt, allerdings sollte man aufpassen. Die Konstrukte werden beim Funktionsaufruf ausgewertet. Sowas:

Code:

$foo = ($bar != 0) ? $foobar / $bar : 0;

geht nicht, weil beim entsprechenden Aufruf (Pseudocode):
foo := ifthen(bar <> 0, foobar / bar, 0); foobar / bar auf alle Faelle ausgewertet wird.

Greetz
alcaeus

[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.

[SubData]

Diese Funktion gibt es schon.

Ist Teil der StrUtils bzw. Math für Zahlen.

[Bernhard Geyer]

Zitat von Sharky:

Zitat von Bernhard Geyer:

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

Gibt es nicht?

Funktionen kann man immer Schreiben, zählt nicht.

Ich glaube auch bei C/C++ hat das der Precompiler erledigt und dort konnte man sich übelste Fehler einprogrammieren wenn man vergessen hat genügend Klammern zu verwenden. Und deshalb (neben der unleserlichkeit bei zu komplexen Anweisungen) hab ich es vermieden.

[Sharky]

Zitat von Bernhard Geyer:

Funktionen kann man immer Schreiben, zählt nicht. ...

Stimmt. Auch wenn diese Funktion inzwichen bei Delphi dabei ist gibt es keinen Sprachsyntax der diese Funktionalität bietet.