Hola marilinspi.
Otra opción para quitar los signos:
Código Delphi
[-]
function UnformatCurr(const CurrStr: string): string;
begin
Result:= StringReplace(CurrStr, '$', '',[rfReplaceAll]);
Result:= StringReplace(Result, '.', '',[rfReplaceAll]);
Result:= StringReplace(Result, ',', '',[rfReplaceAll]);
end;
Ejemplo de uso:
Código Delphi
[-]
ShowMessage(UnformatCurr('$ 2.500.317,25'));
Saludos