Implementierende sofortige If (Iif) in Delphi

Implementierende sofortige If (Iif) in Delphi

Implementierende sofortige If (Iif) in Delphi : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Ich habe nie bereut, Verschieben von C++ in Object Pascal, aber ich tat
ein nützliches Feature von C - sofortige wenn (Iif) verpassen.
Es scheint, wie viel mein Code bei einer einfachen Schritten Anweisungen
wie-

Wenn LambCount = 1 then
beginnen
AString: = 'a';
LambString: = 'Lamm';
anderes Ende
beginnen
AString: = '';
LambString: = 'Lämmer';
Ende;
FullString: = 'Mary hatte' + AString + 'kleinen' + LambString;
Die Einführung der Methode überladen in Delphi 4 ermöglichte es mir
Erstellen Sie eigene Verison von Iif in Object Pascal.
Der folgende Code ist Teil der Standardwerkzeug-Einheit, die ich in allen erfassen
Meine Projekte:
{beginnen Liste}
Einheit StandardUtils;
Schnittstelle
IIF-Funktion (Bedingung: Boolean;
TrueString: String;
FalseString: String = ''): String; überladen;
IIF-Funktion (Bedingung: Boolean;

TrueInt: Integer;
FalseInt: Integer = 0): Integer; überladen;
Umsetzung
{********************************************************************}
IIF-Funktion (Bedingung: Boolean;
TrueString: String;
FalseString: String = ''): String; überladen;
beginnen
Wenn Bedingung dann
Ergebnis: = TrueString
sonst
Ergebnis: = FalseString;
Ende;
{********************************************************************}
IIF-Funktion (Bedingung: Boolean;
TrueInt: Integer;
FalseInt: Integer = 0): Integer; überladen;
beginnen
Wenn Bedingung dann
Ergebnis: = TrueInt
sonst
Ergebnis: = FalseInt;
Ende;
{********************************************************************}
Ende.
{end Liste}