Como posso retirar somente os numeros de uma String?

Question

E ai pessoal estou com um pequeno probleminha preciso calcular um valor so que pra isso preciso tirar as primeiras posi�oes da String que ta no formato �R$ 32,00� preciso descartar o �R$� para converter para float, tem como eu pegar somente o �32,00� para fazer o calculo? Agrade�o desde ja... :lol:

Aroldo Zanela · Accepted Answer

Colega,Na verdade as fun��es dispon�veis do Delphi n�o conseguem converter string que contenham separadores de milhares e s�mbolos de moedas. Preparei uma pequena fun��o para resolver o seu problema:[...

Alexdias · Answer

ESSE VALOR QUE VC PRECISA CALCULAR � UM CAMPO DE SUA TABELA ?
SE A RESPOSTA FOR SIM ... ENT�O N�O TENTE CALCULAR ASSIM .

EX 1 ==>dbedit1.text:= dbedit1.text+dbedit2.text; ( erro )

ex 2 ==> query1.fieldbyname(�valor1�).value:=query1.fieldbyname(�valor1�).value+query1.fieldbyname(�valor2�).value;
dbedit.text:=floattostr(query1.fieldbyname(�valor1�).value);

obs : use variaveis para facilitar e encurtar o codigo ;
espero que sirva !!!

Marcusbraga · Answer

meus agradecimentos a Aroldo Zanela vai ser muito util essa fun��o pra mim valeu mesmo!!!

function TextToCurr(Texto: String): Currency;
var nI: Integer;
TextoLimpo: String;
begin
TextoLimpo := ��;
For nI := 1 to Length(Texto) do
begin
if Texto[nI] in [�0�..�9�,�,�] then
TextoLimpo := TextoLimpo + Texto[nI];
end;
Result := StrToCurr(TextoLimpo);
end;