Träume, Wünsche und Wahnvorstellungen...

[knochen]

Zitat von sx2008:

Ich wünsche mir die If-Funktion:

Delphi-Quellcode:

// fiktive Berechnung als Beispiel
Zinssatz := (if premiumkunde then Basiszins*0.9 else Basiszins+0.75) - rabattzins;

Gibt's schon. Such mal nach der IfThen-Funktion. Die existiert in überladener Form gleich in mehreren Units.

Zitat von sx2008:

Und natürlich gleich noch die Case-Funktion dazu:

Delphi-Quellcode:

ShowMessage('Sie haben '+
  (case idx of 1:'Nichts' 2:'Grass' 3:'Wasser' 4:'Felsen' else 'unbekannt') + 'angeklickt');

Man beachte dass man immer den Else-Teil schreiben muss; andernfalls wäre es ein Fehler.

Auch das kann man leicht selbst schreiben.

Delphi-Quellcode:

function MyCase(idx: Integer; Values: Array of Integer): Integer;
function MyCase(idx: Integer; Values: Array of String): String; overload;
...etc.

Ggf. kann man noch einen Else-Wert übergeben, wenn gewünscht auch als optionalen Parameter.