Salve Voce pode fazer um função +/- assim function IIF (bCond : Boolean; Verdade , Falso Variant ) : Variant; // hehehe lembrando do velho Clipper!!! begin
if bCond then Result := Verdade else Result := Falso; end; +/- isso acho que ja ajuda abraço Marcos Bernardo 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 > > > [As partes desta mensagem que não continham texto foram removidas]