tem um baseado no iif do clipper
// retorna os valores passados conforme a condição
function iif(cond: boolean; ctrue, cfalse: variant): variant;
begin
if cond then
iif := ctrue
else
iif := cfalse;
end;
Resultado := iif( edit1.text = '', 0, 20 );
Em 24/03/08, Marcio <[EMAIL PROTECTED]> escreveu:
>
> Pessoal no Delphi tem como fazer um IF compacto ??
>
> resultado := if edit1.text = '' then 0 else 20
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
