Gibt es in Pascal ein Äquivalent zum ? Operator in C?

[fliegermichl]

Hallo,

ich habe eben einen C Quellcode nach Pascal übesetzt. In C (oder auch z.B. PHP) gibt es den ? Operator.

Code: Alles auswählen

int schwarz = 1;
int weiss = -1;

int getcolor(int maxOrMin) {
 return maxOrMin?schwarz:weiss;
}

Die Funktion liefert abhängig vom Wert im Parameter maxOrMin entweder den ersten oder den zweiten Wert.
In Pascal würde man es etwa so schreiben:

Code: Alles auswählen

const 
 schwarz = 1;
 weiss = -1;

function getcolor(maxOrMin : boolean) : Integer;
begin
  if maxOrMin then
    Result := schwarz
  else
    Result := weiss;
end;

Mir gefällt die kompakte Schreibweise in der C Version zumal man dieses Konstrukt direkt auch als Parameter für einen Funktionsaufruf verwenden kann.

[Warf]

Seit Delphi 13 gibt es dort if-then-else:

Code: Alles auswählen

s := if condition then 'true' else 'false';

[fliegermichl]

Danke, das scheint aber in Freepascal nicht zu gehen.
Beispiel:

Code: Alles auswählen

 ShowMessage(if CheckBox1.Checked then 'true' else 'false');

Fehlermeldung: unit1.pas(35,15) Error: Illegal expression

[theo]

Es gibt noch IfThen in den units Strutils und Math:

Code: Alles auswählen

  Caption:=IfThen(CheckBox1.Checked , 'a', 'b');    

Etwas merkwürdig imho...

[fliegermichl]

Es gibt noch IfThen in den units Strutils und Math:

Code: Alles auswählen

  Caption:=IfThen(CheckBox1.Checked , 'a', 'b');    

Etwas merkwürdig imho...

Danke!
Ja, als Funktion kann man das natürlich so implementieren.

[wp_xyz]

Es gibt noch IfThen in den units Strutils und Math:

Code: Alles auswählen

  Caption:=IfThen(CheckBox1.Checked , 'a', 'b');    

Etwas merkwürdig imho...

Danke!
Ja, als Funktion kann man das natürlich so implementieren.

Aber aufpassen: Sowohl der true- als auch der false-Fall werden ausgewertet. Das Folgende resultiert in einer Division durch 0, obwohl man gerade diese vermeiden möchte:

Code: Alles auswählen

uses
  Math;

function Kehrwert(x: Double): Double;
begin
  Result := IfThen(x <> 0, 1.0/x, NaN);
end;

Mit dem klassischen

Code: Alles auswählen

if x <> 0 then
  Result := 1.0/x
else
  Result := NaN;

passiert das nicht...

[theo]

Seit Delphi 13 gibt es dort if-then-else:

Code: Alles auswählen

s := if condition then 'true' else 'false';

Gibt es eine FPC Version oder eine Einstellung, womit dieser ternäre Auswahloperator funktioniert?

[Warf]

Vielleicht irgendwann

[theo]

Vielleicht irgendwann

OK, Danke.
Das ist "In Arbeit", soweit ich sehe.

[af0815]

Vielleicht irgendwann

OK, Danke.
Das ist "In Arbeit", soweit ich sehe.

Hat einen Zug bekommen, seit es auch in den Ankündigungen von Delphi drinnen war.

[Warf]

OK, Danke.
Das ist "In Arbeit", soweit ich sehe.

Wie das halt bei merge requests gegen den FPC läuft, man stellt einen und dann darf man mehrere feedback runden machen wo man ein paar Monate, manchmal auch Jahre bis man seine Antworten bekommt