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]
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]
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]
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]