Fórum Como tirar a (,) virgula de um valor ? #292795
23/08/2005
0
por exemplo:
Tenho um edit que recebe o valor : 299,99
gostaria de jogar esse valor na variavel X sem a virgula : 29999
:?:
Tenho um edit que recebe o valor : 299,99
gostaria de jogar esse valor na variavel X sem a virgula : 29999
:?:
Fabiano Góes
Curtir tópico
+ 0
Responder
Posts
23/08/2005
Wilson Brito
procedure TForm1.Button2Click(Sender: TObject);
var
x: string;
begin
x := StringReplace(edit1.Text,´,´,´´,[rfReplaceAll]);
end;
var
x: string;
begin
x := StringReplace(edit1.Text,´,´,´´,[rfReplaceAll]);
end;
Responder
Gostei + 0
23/08/2005
Fabiano Góes
Caraca, muito simples.
:lol:
Valeu Winson !!!!!!!!
aproveitando a situação, como vc faria o inverso ?
pegar 29999 e transforma em 299,99 ?????
:lol:
Valeu Winson !!!!!!!!
aproveitando a situação, como vc faria o inverso ?
pegar 29999 e transforma em 299,99 ?????
Responder
Gostei + 0
23/08/2005
G1b4
Basta fazer isso:
begin
Try
Edit1.Text := StrToFloat(FloatToStr(Edit1.Text)/100);
Except
On EConvertError Do
raise Exception.Create(´Valor numérico inválido !´);
End;
end;
begin
Try
Edit1.Text := StrToFloat(FloatToStr(Edit1.Text)/100);
Except
On EConvertError Do
raise Exception.Create(´Valor numérico inválido !´);
End;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)