Very Good Rubem!... não conhecia! hehehe é a velha frase..."quem procura acha!!!" heheh
abraço Marcos Bernardo Em 24/03/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu: > > > Nem precisava declarar essa função, principalmente pelo fato dela > trabalhar com um tipo de dado que, apesar de permitir o retorno de qualquer > tipo de informação, ocupa cerca de 16 bytes de armazenamento, onerando a sua > utilização massiva! > > No delphi 6 e posterior, já existe uma função pra fazer esse tipo de 'if'. > Ela se chama IfThen(), e ela está definida nas units Math e StrUtils. Na > unit Math, esta função está sobrecarregada para trabalhar com valores de > retorno dos tipos integer, int64 e double. Na unit StrUtils, a função está > definida (obviamente) para trabalhar com valores de retorno do tipo string. > > Sds. > > ________________________________ > > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > From: [EMAIL PROTECTED] <eduardo.drd%40gmail.com> > Date: Mon, 24 Mar 2008 16:38:52 -0300 > Subject: Re: [delphi-br] [IF COMPACTO] > > 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] <marcio%40sulfabril.com.br>> > 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] <eduardo.drd%40gmail.com> > Site: http://www.drdsistemas.com/ > ....................................................... > > [As partes desta mensagem que não continham texto foram removidas] > > __________________________________________________________ > Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! > http://www.amigosdomessenger.com.br/ > > [As partes desta mensagem que não continham texto foram removidas]