terrível.......

[julioobao 0]

Caros Amigos,

 

Eu tenho 2 dúvidas no Delphi que são as seguinte: 1º eu criei um projeto que possui os seguintes componentes: UM Controle DATA, Um FORMULARIO e dentro desse formulário existem 3 DBEDIT....a minha idéia é fazer o seguinte: Eu fiz um BD e dentro dele criei uma tabela que já está ligada as seus devidos componente uma Table e um DataSource.... e nesse tabela criei 3 campos um para cada DBEDIT e nesses campos coloquei o tipo CURRENCY só que quando vou programar segunda DBEDIT para que no momento em que ela perder o FOCO ela exiba o resultado da OPERAÇÃO(DBEDIT1+DBEDIT2 e exiba o resultado na DBEDIT3) está dando um erro...PQ?.....A linha de comando que eu estou usando está descrita abaixo....

****************

 

procedure TAtual.Cdi_46Exit(Sender: TObject);

Var

varCdi42,varCdi46,varTot1:real;

begin

(Sender as TDBEdit).Color:=clWindow;

(Sender as TDBEdit).Font.Color:=clWindowText;

 

//Calculando o valor de venda

//if EditLucro.Text<>''then

begin

varCdi42:=StrTofloat(Cdi_42.Text);

varCdi46:=StrTofloat(Cdi_46.Text);

varTot1:=(varCdi42+varCdi46);

Cdi_Mes.Text:=floatToStr(varTot1);

end;

end;

 

*********************

Eu já tentei mudar na Tabela de Currency para String mas o programa continua acusando que existe algo ainda como CURRENCY....

O que eu faço para arrumar isso?...

 

***********************

2ª Dúvida: Eu estou colocando cada DBEDIT com seu respectivo numero na propriedade TABORDER e mesmo assim quando aperto o TAB está dando ERRADO....PQ???...

 

 

Bom Desde já agradeço a atenção,

 

 

Até ++++++

 

Julio

[Renato Lima 0]

Cara você comentou o IF e esqueceu o Begin e End.

 

procedure TAtual.Cdi_46Exit(Sender: TObject);

Var

varCdi42,varCdi46,varTot1:real;

begin

(Sender as TDBEdit).Color:=clWindow;

(Sender as TDBEdit).Font.Color:=clWindowText;

 

//Calculando o valor de venda

//if EditLucro.Text<>''then

begin <------

varCdi42:=StrTofloat(Cdi_42.Text);

varCdi46:=StrTofloat(Cdi_46.Text);

varTot1:=(varCdi42+varCdi46);

Cdi_Mes.Text:=floatToStr(varTot1);

end; <------------

end;