[[oscarac]]

se me acaba de ocurrir una idea...
muchos de nosotros (los que provenimos de otros lenguajes) ya teniamos ciertas rutinas las cuales nos facilitaban la vida

es por eso que propongo la creacion de un mural donde "expongamos" las soluciones que le hemos dado en el lenguaje delphi

por ejemplo

en Foxpro tenia la funcion IIF (asi como el iif de Access)
la solucion en delphi la hice asi

Código Delphi [-]
 
function IIF(Condition: Boolean; TrueString : String; FalseString: String = ''): String; overload;
begin
  if Condition then
    result := TrueString
  else
    result := FalseString;
end;

y su aplicacion....

Código Delphi [-]
qrlSubTitulo.Caption := iif (frmBalanceIntegralGasto.rgRango.ItemIndex = 0, 'Saldos Mensuales','Saldos Acumulados');