Código
function iif( Condicao: boolean; ValorSeVerdadeiro, ValorSeFalso: variant): variant;
begin
if Condicao
then Result := ValorSeVerdadeiro
else Result := ValorSeFalso;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009