Re: [delphi-br] Retirar Caracteres

2006-05-19 Por tôpico Gabriel Filho
VarString:=copy('R$ 1.442,22',4, legth('R$ 1.442,22')) 2006/5/18, Moacir (gmail) <[EMAIL PROTECTED]>: > > Cleiton, > > Sem pensar muito: > MeuValor:=StringReplace(StringReplace('R$ > 1.442,22','R$','',[rfReplaceall]),'.','',[rfReplaceall]); > > [ ]´s > Moacir > > > Cleiton escreveu: > > Olá pes

Re: [delphi-br] Retirar Caracteres

2006-05-18 Por tôpico Moacir (gmail)
Cleiton, Sem pensar muito: MeuValor:=StringReplace(StringReplace('R$ 1.442,22','R$','',[rfReplaceall]),'.','',[rfReplaceall]); [ ]´s Moacir Cleiton escreveu: > Olá pessoal... > > Imaginem uma string dessa forma: 'R$ 1.442,22'. > > Gostaria de saber como faço pra transformar essa string em

RE: [delphi-br] Retirar Caracteres

2006-05-18 Por tôpico Eduardo Alves
Veja se isso resolve. function StrToFloatA(pValor: String): Real; var    i : Integer;    s : String; begin    s := '';    for i := 1 to Length(pValor) do    begin   if pValor[i] in ['0'..'9', DecimalSeparator] then s := s + pValor[i];    end;    Result := StrToFloat(s); end;