Trocando a ´,´ pelo ´.´ no dbedit
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
Curtidas 0
Respostas
Dopi
29/06/2004
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;
GOSTEI 0
Nunes_fns
29/06/2004
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?!
GOSTEI 0