Fórum Trocando a ´,´ pelo ´.´ no dbedit #240358
29/06/2004
0
Tenho um programa com bd em interbase e usei o seguinte comando:
´valor´ numeric (15,2), e no dbedit só funciona a vírgula como eu troco a vírgula pelo ponto?
Obrigado
´valor´ numeric (15,2), e no dbedit só funciona a vírgula como eu troco a vírgula pelo ponto?
Obrigado
Demetriusdgs
Curtir tópico
+ 0
Responder
Posts
29/06/2004
Dopi
Voce pode usar o evento OnKeyPress do edit
O Exemplo abaixo, irá converter a ´,´ ou o ´.´ para o Separador Decimal usado pelo S.O.
procedure TfrPagamento.edValorKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´,´,´.´] then
Key := DecimalSeparator ;
end;
O Exemplo abaixo, irá converter a ´,´ ou o ´.´ para o Separador Decimal usado pelo S.O.
procedure TfrPagamento.edValorKeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´,´,´.´] then
Key := DecimalSeparator ;
end;
Responder
Gostei + 0
29/06/2004
Nunes_fns
Tente utilizar a função AnsiReplaceStr. Esta função busca, numa string, determinado caractere que vc deseje substituir e substitui-o por outro caractere também determinado por vc.
A sintaxe segue:
AnsiReplaceStr(´String na qual será feita a busca´, ´Caractere procurado´, ´Caractere que o substuirá´)
Ela retorna uma string também, tá?!
ps: Lembre-se de declarar a Unit StrUtils para poder utilizar tal função, ok?!
A sintaxe segue:
AnsiReplaceStr(´String na qual será feita a busca´, ´Caractere procurado´, ´Caractere que o substuirá´)
Ela retorna uma string também, tá?!
ps: Lembre-se de declarar a Unit StrUtils para poder utilizar tal função, ok?!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)