Salvando campo data

[ale.jundiai]

Eu tenho uma tabela em paradox. Tem um campo chamado valor que é do tipo float.

Gostaria que o valor aparecesse formatado, então coloquei o seguinte codigo no onexit do dbedit desse campo.

procedure TfrmContribuintes.ediValorExit(Sender: TObject);

var

Valor : real;

begin

valor := StrToCurr(ediValor.text);

ediValor.text := FormatFloat('#,0.00',(Valor));

end;

Quando digito o valor, por exemplo 40... quando saio do campo ele aparece 40,00 certinho... mas quando eu salvo, ele volta para 40...

alguém sabe como resolver isso

[Jhonas]

voce tem que formatar o valor na entrada do DbEdit

voce pode fazer assim, mas existem outros modos

procedure TForm1.ediValorExit(Sender: TObject);
var
   Valor : real;
begin
   valor := StrToCurr(ediValor.text);
   ediValor.text := FormatFloat(',0.00',(Valor));
end;

procedure TForm1.ediValorEnter(Sender: TObject);
begin
   ediValor.text := '40';
   ediValor.text:= FormatFloat(',0.00', strtofloat(ediValor.text));
end;

abraço

[ale.jundiai]

Fiz esses comandos e funcionou...

Mas... não está salvando formatado, sendo assim, na visualização, não aparece formatado... preciso editar e clicar no dbedit para formatar...

Como faço para trazer o valor já formatado...

[Jhonas]

defina o campo da sua tabela como Data e depois quando chamar para o DBGrid já vem no formato de Data

abraço