jeg aldri har angret på å flytte fra C ++ til Object Pascal, men jeg didmiss en nyttig funksjon i C - Umiddelbar Hvis (IIF) .Det virker som en god del av min kode innebærer enkelt hvis statementssuch som - hvis LambCount = 1 da begynne AString: = 'a'; LambString: = 'lam'; ende ellers begynner AString: = ''; LambString: = 'lam'; slutt; FullString: = 'Mary hadde' + AString + 'lille' + LambString, Innføring av metoden overbelastning i Delphi 4 aktivert meg tocreate min egen verison av IIF i Object Pascal.The følgende kode er en del av standard verktøy enhet jeg ta med i allmy prosjekter : {begynne oppføringen} enhets StandardUtils; interfacefunction IIF (Forhold: Boolean, TrueString: String; FalseString: String = ''): String; overbelastning, funksjon IIF (Forhold: Boolean, TrueInt: Integer; FalseInt: Integer = 0): Integer; overload;implementation{********************************************************************}function IIF (Tilstand: Boolean, TrueString: String; FalseString: String = ''): String; overbelastning, begynne hvis tilstand da resultere: = TrueString annet resultat: = FalseString; end; {******************************* *************************************} funksjon IIF (Forhold: Boolean, TrueInt: Integer; FalseInt : Integer = 0): Integer; overbelastning, begynne hvis tilstand da resultere: = TrueInt annet resultat: = FalseInt; end; {******************************* *************************************} slutt. {end oppføring}