La mise en œuvre immédiate si (iif) en delphi

La mise en œuvre immediate si (iif) en delphi

La mise en œuvre immediate si (iif) en delphi : Plusieurs milliers de conseils pour vous faciliter la vie.

je n'ai jamais regrette le deplacement de C a Pascal Objet, mais je n'ai
miss une caracteristique utile de C - le immediatement Si (iif).
Il semble comme une grande partie de mon code implique simple si les declarations
tels que

& nbsp & nbsp si LambCount = 1
& nbsp & nbsp commencer
& ! & ! & ! & nbsp AString := 'a'
& ! & ! & ! & nbsp LambString := 'agneau'
& nbsp & nbsp fin else
& nbsp & nbsp commencer
& ! & ! & ! & nbsp AString := '
& ! & ! & ! & nbsp LambString : = 'agneaux'
& nbsp & nbsp fin
& nbsp & nbsp FullString := 'Marie avait' AString 'petit' LambString
L'introduction de la surcharge de methode Delphi 4 m'a permis
creer mon propre verison de l'iif en Pascal Objet.
Le code suivant est une partie de l'utilitaire standard de l'unite-je inclure dans tous les
mon projet:
{commencer la liste}
unite de StandardUtils
interface
la fonction IIF(Condition: Boolean
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp TrueString : String
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp FalseString: String = '): Chaîne de surcharge
la fonction IIF(Condition: Boolean

& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp TrueInt : Entier
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp FalseInt: Integer = 0): Integer surcharge
application
{********************************************************************}
la fonction IIF(Condition: Boolean
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp TrueString : String
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp FalseString: String = '): Chaîne de surcharge
begin
& nbsp & nbsp if Condition then
& ! & ! & ! & nbsp resultat := TrueString
& nbsp & nbsp else
& ! & ! & ! & nbsp resultat := FalseString
fin
{********************************************************************}
la fonction IIF(Condition: Boolean
& ! & ! & ! & nbsp TrueInt : Integer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp FalseInt: Integer = 0): Entier surcharge
begin
& nbsp & nbsp if Condition then
& ! & ! & ! & nbsp resultat := TrueInt
& nbsp & nbsp else
& ! & ! & ! & nbsp resultat := FalseInt
fin
{********************************************************************}
a la fin.
{fin d'inscription}