Erro Invalid Variant type Conversion? No onCellClick DbGrid!

Delphi

26/01/2007

Olah pessoal, nao cosigo fazer esse codigo funcionar

IF DM.QRYLIMPA.FIELDBYNAME(´MES´).ASINTEGER = 3 THEN BEGIN edtMARCO.text:=floattostr( dm.qrylimpa.fieldbyname(´valor´).Value ); edtMARCO.Text := stringreplace(edtMARCO.text, ´.´, ´´, [rfReplaceAll]); edtMARCO.text := FormatFloat(´#,0.00;(,0.00)´,StrToFloat(edtMARCO.Text)); END ELSE BEGIN EDTMARCO.TEXT:= NULL; [color=blue:696c7b323a][i:696c7b323a]{retorna o edit em branco caso nao use este if acima}[/i:696c7b323a][/color:696c7b323a] END;

O que eu desejo eh se tiver o MES(campo) 3 mostrar no edit(EdtMarco) caso contrario o edit ficar em branco ou nulo.

Grato a ajuda de todos
Adriano


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

26/01/2007

EDTMARCO.TEXT := ´´


GOSTEI 0
Adriano_servitec

Adriano_servitec

26/01/2007

EDTMARCO.TEXT := ´´
Nossa, tinha testado assim antes, mais acho que estava com o codigo errado por isso tambem dava o erro, ai fui indo ateh chegar ao null, mais realmente tinha de deixar como vazio do jeito que tu postou. :oops:

Valeu mais uma vez pela ajuda
Obrigado
Adriano.


GOSTEI 0
POSTAR