Como tirar a (,) virgula de um valor ?
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
Curtidas 0
Respostas
Wilson Brito
23/08/2005
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;
GOSTEI 0
Fabiano Góes
23/08/2005
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 ?????
GOSTEI 0
G1b4
23/08/2005
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;
GOSTEI 0