Re: [delphi-br] [IF COMPACTO]
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 > From: [EMAIL PROTECTED] > 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] > > 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] > > __ > 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]
RE: [delphi-br] [IF COMPACTO]
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 From: [EMAIL PROTECTED] 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]> 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] _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: [delphi-br] [IF COMPACTO]
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]
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]> 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]
[delphi-br] [IF COMPACTO]
Pessoal no Delphi tem como fazer um IF compacto ?? resultado := if edit1.text = '' then 0 else 20
