Cadas decimais em DBEdit no Evento OnExit

Delphi

11/04/2013

Olá estou iniciando agora em programação.

preciso formatar um DBEdit e não estou conseguindo. Alguém pode me ajudar?

É o seguinte: Preciso que meu DBEdit no envento OnExit fique assim: 1.650,00.
Eu uso como ligação o ADOTable.

Alguém me ajuda por favor...
Renildo Antonio

Renildo Antonio

Curtidas 0

Respostas

Deivison Melo

Deivison Melo

11/04/2013

No evento OnExit use:

Edit1.Text:= FormatFloat('###,###,###.00',StrToInt(Edit1.Text));

PS. Pelo tipo de acesso a dados imagino que estejas usando o access ou o MSSQLServer
verifique como as informações são gravadas na base de dados e observe se ao gravar
as informações no banco de dados não será necessário trocar a vírgula por um ponto
como fazemos ao inserir as informações em alguns bancos (Oracle por exemplo).

Bom, espero te ajudado!

Bom final de semana e bons códigos!!
GOSTEI 0
Renildo Antonio

Renildo Antonio

11/04/2013

Amigo, muito obrigado. Que vc tenha um ótimo final de semana também.

Eu estou usando sim o Access em meu projeto. E lá o campo esta no formato moeda.
Eu já havia usado este código antes. Mas o que esta ocorrendo é que não está dando certo. Sempre esta aparecendo esta messagem:

Project TimeCard.exe raised exception class EconvertError with message “1.650,00” is not a valid floating point value. Process stopped. Use Step or Run to continue.

Anda estou no começo e não tenho um bom conhecimento por isso não estou conseguindo ver o que esta ocorrendo.
Se puder continuar a me ajudar agradeço.
GOSTEI 0
POSTAR