[ecfisa]

Hola giulichajari.

Empezado por giulichajari

Probe hacer el edit y usa el punto para los dos casos. Como se cambia esto?

Si usas el punto tanto para separador de miles como de decimales, habría que hacer un pequeño cambio a la función anterior:

Código Delphi [-]
...
{ definir punto como separador de miles y decimales }
procedure TuForm.FormCreate(Sender: TObject);
begin
  DecimalSeparator := '.';
  ThousandSeparator:= '.';
  Application.UpdateFormatSettings:= False;
end;

function UnFormatCurr(const CurrValue: string): string;
begin
   Result:= CurrValue;
   Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
   Result:= StringReplace(Result, '.', '', []); // <<-- cambio
end;

Saludos