Substituir virgula por ponto de um edit no Onclick???

Delphi

16/06/2004

Olá Pessoal !
Estou com um dilema crucial :
Meu programa gera os cauculos de decontos para um determinado produto, jogando-os dentro de edits, para depois eu usando o UPDATE do sql, inserir os novos descontos.
O problema é: no sql eu não posso colocar por exemplo: SET preco_2 = 120,90 . deveria colocar 120.90.

Preciso de um comando que seja parecido com o:

if Key in [´,´,´.´] then Key := DecimalSeparator; ou o

if key= ´.´ then
key:=´,´;

que usamos nos Onkeypress da vida, mas infelizmente não sei como adptá-los pro meu caso.

Conto com vcs !

Obrigado


Cdteam

Cdteam

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

16/06/2004

Olá

FormatFloat( ´0.00´, MyFloat);

Espero que ajude
Até+


GOSTEI 0
Nildo

Nildo

16/06/2004

Olá!
Você pode colocar assim no OnChange do Edit:

var
   UltPos: Integer;
begin
   UltPos := TEdit( Sender ).SelStart;
   TEdit( Sender ).Text := StringReplace( TEdit( Sender ).Text, ´,´, ´.´, [rfReplaceAll] );
   TEdit( Sender ).SelStart := UltPos;
end;



GOSTEI 0
Cdteam

Cdteam

16/06/2004

Olá! Você pode colocar assim no OnChange do Edit: 
var
   UltPos: Integer;
begin
   UltPos := TEdit( Sender ).SelStart;
   TEdit( Sender ).Text := StringReplace( TEdit( Sender ).Text, ´,´, ´.´, [rfReplaceAll] );
   TEdit( Sender ).SelStart := UltPos;
end;


Valewwwwwwwwwww !!! :D :D :D


GOSTEI 0
POSTAR