CurrToStr sin coma ni puntos

[ecfisa]

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')); // Resultado:  250031725

Saludos