Implementar de inmediato si (iif) en delphi
nunca me he arrepentido de movimiento de C a de Object Pascal, pero yo sí
se pierda una característica útil de C - la Inmediata Si (iif).
parece una gran parte de mi código consiste en la simple if
como
& nbsp & nbsp si LambCount = 1 entonces
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp AString := 'a'
& nbsp & nbsp & nbsp & nbsp LambString := 'cordero'
& nbsp & nbsp end else
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp AString := '
& nbsp & nbsp & nbsp & nbsp LambString := 'corderos'
& nbsp & nbsp final
& nbsp & nbsp FullString := 'María' habían AString 'poco' LambString
La introducción de la sobrecarga de métodos en Delphi 4, me ha permitido
crear mi propia versión del iif, en Object Pascal.
El código siguiente es parte de la norma de la utilidad de la unidad I incluir en todos los
mis proyectos:
{empiece a enumerar}
unidad de StandardUtils
interfaz
la función IIF(Condición: Boolean
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrueString : Cadena
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseString: String = '): Cadena de sobrecarga
la función IIF(Condición: Boolean
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrueInt : Integer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseInt: Integer = 0): Integer sobrecarga
aplicación
{********************************************************************}
la función IIF(Condición: Boolean
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrueString : String
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseString: String = '): Cadena de sobrecarga
begin
& nbsp & nbsp si Condición entonces
& nbsp & nbsp & nbsp & nbsp resultado := TrueString
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp resultado := FalseString
fin
{********************************************************************}
la función IIF(Condición: Boolean
& nbsp & nbsp & nbsp & nbsp TrueInt : Integer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseInt: Integer = 0): Entero de sobrecarga
begin
& nbsp & nbsp si Condición entonces
& nbsp & nbsp & nbsp & nbsp resultado := TrueInt
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp resultado := FalseInt
fin
{********************************************************************}
final.
{end listado}
Implementar de inmediato si (iif) en delphi
Implementar de inmediato si (iif) en delphi : Multi-millones de consejos para hacer su vida mas facil.
nunca me he arrepentido de movimiento de C a de Object Pascal, pero yo si
se pierda una caracteristica util de C - la Inmediata Si (iif).
parece una gran parte de mi codigo consiste en la simple if
como
& nbsp & nbsp si LambCount = 1 entonces
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp AString := 'a'
& nbsp & nbsp & nbsp & nbsp LambString := 'cordero'
& nbsp & nbsp end else
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp AString := '
& nbsp & nbsp & nbsp & nbsp LambString := 'corderos'
& nbsp & nbsp final
& nbsp & nbsp FullString := 'Maria' habian AString 'poco' LambString
La introduccion de la sobrecarga de metodos en Delphi 4, me ha permitido
crear mi propia version del iif, en Object Pascal.
El codigo siguiente es parte de la norma de la utilidad de la unidad I incluir en todos los
mis proyectos:
{empiece a enumerar}
unidad de StandardUtils
interfaz
la funcion IIF(Condicion: Boolean
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrueString : Cadena
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseString: String = '): Cadena de sobrecarga
la funcion IIF(Condicion: Boolean
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrueInt : Integer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseInt: Integer = 0): Integer sobrecarga
aplicacion
{********************************************************************}
la funcion IIF(Condicion: Boolean
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp TrueString : String
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseString: String = '): Cadena de sobrecarga
begin
& nbsp & nbsp si Condicion entonces
& nbsp & nbsp & nbsp & nbsp resultado := TrueString
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp resultado := FalseString
fin
{********************************************************************}
la funcion IIF(Condicion: Boolean
& nbsp & nbsp & nbsp & nbsp TrueInt : Integer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp FalseInt: Integer = 0): Entero de sobrecarga
begin
& nbsp & nbsp si Condicion entonces
& nbsp & nbsp & nbsp & nbsp resultado := TrueInt
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp resultado := FalseInt
fin
{********************************************************************}
final.
{end listado}
Implementar de inmediato si (iif) en delphi
By Consejos Y Trucos
Implementar de inmediato si (iif) en delphi : Multi-millones de consejos para hacer su vida más fácil. 