Fórum Substituir virgula por ponto de um edit no Onclick??? #237920
16/06/2004
0
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
Curtir tópico
+ 0Posts
16/06/2004
Paulo_amorim
FormatFloat( ´0.00´, MyFloat);
Espero que ajude
Até+
Gostei + 0
16/06/2004
Nildo
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
16/06/2004
Cdteam
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
Clique aqui para fazer login e interagir na Comunidade :)