sh@dow Mestre
Registrado: Domingo, 21 de Março de 2004 Mensagens: 807
|
Enviada: Dom Fev 06, 2005 5:52 pm Assunto: Transformar String em Valor....... |
|
|
Vc pode usar uma função para remover os caracteres e deixado os números:
function RemoveChar(Const Texto:String):String;
var
I: integer;
S: string;
begin
S := \'\';
for I := 1 To Length(Texto) Do
begin
if (Texto[I] in [\'0\'..\'9\',\',\']) then
begin
S := S + Copy(Texto, I, 1);
end;
end;
result := S;
end;
ex:
var valor:Currency;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Text:=RemoveChar(Edit1.Text);
valor:=StrToCurr(Edit1.Text);
end;
_________________ <a>Regras do fórum</a> |
|