IF inmediatos

Artículo por Club Developers 路 31 December 2005

2989 vistas

Las condiciones booleanas, suelen ser lineas de c贸digo simples afectadas por una variable... Puede ser factible crear funciones que permitan controlar 茅sta situaci贸n (hacer en una linea eso que hacemos en 3...)
Estas funciones corresponder胊n al operador ( ? : ) de C o PHP.

Implementaci贸n de las funciones:



delphi
  1. Interface
  2.  
  3. { If Inmediato }
  4. { IIF que reenvia un entero }
  5. function IIF(ACondition: boolean; ATruePart, AFalsePart: integer): integer; overload;
  6. { IIF que reenvia un extended }
  7. function IIF(ACondition: boolean; ATruePart, AFalsePart: Extended): Extended; overload;
  8. { IIF que reenvia un string }
  9. function IIF(ACondition: boolean; ATruePart, AFalsePart: string): string; overload;
  10. { IIF que reenvia un objeto }
  11. function IIF(ACondition: boolean; ATruePart, AFalsePart: TObject): TObject; overload;
  12.  
  13. Implementation
  14. function IIF(ACondition: boolean; ATruePart, AFalsePart: integer): integer;
  15. { IF inmediato para enteros }
  16. begin
  17. 聽 if ACondition then
  18. 聽 聽 Result := ATruePart 
  19. 聽 else
  20. 聽 聽 Result := AFalsePart;
  21. end;
  22.  
  23. function IIF(ACondition: boolean; ATruePart, AFalsePart: Extended): Extended;
  24. { IF inmediato para floats }
  25. begin
  26. 聽 if ACondition then
  27. 聽 聽 Result := ATruePart 
  28. 聽 else
  29. 聽 聽 Result := AFalsePart;
  30. end;
  31.  
  32. function IIF(ACondition: boolean; ATruePart, AFalsePart: string): string;
  33. { IF inmediato para cadenas }
  34. begin
  35. 聽 if ACondition then
  36. 聽 聽 Result := ATruePart 
  37. 聽 else
  38. 聽 聽 Result := AFalsePart;
  39. end;
  40.  
  41. function IIF(ACondition: boolean; ATruePart, AFalsePart: TObject): TObject;
  42. { IF inmediato para objetos }
  43. begin
  44. 聽 if ACondition then
  45. 聽 聽 Result := ATruePart 
  46. 聽 else
  47. 聽 聽 Result := AFalsePart;
  48. end;



Utilizaci贸n de las funciones



delphi
  1. procedure TMyObject.TestIIF;
  2. var
  3. 聽 idx: integer;
  4. 聽 MyString: String;
  5. begin
  6. 聽 idx := 10; { Por ejemplo }
  7. 聽 MyString := IIF(idx=0,'Cero','Diferente de cero');
  8. end;



Que ser胊 el equivalente a



delphi
  1. procedure TMyObject.TestIIF;
  2. var
  3. 聽 idx: integer;
  4. 聽 MyString: String;
  5. begin
  6. 聽 idx := 10; { Por ejemplo }
  7. 聽 if idx=0 then
  8. 聽 聽 MyString = 'Cero'
  9. 聽 else
  10. 聽 聽 MyString = 'Diferente de Cero';
  11. end;