Hola giulichajari.
Si el contenido de la propiedad
Text del
TEdit que mencionas, tiene un formato como por ejemplo '$ 90.780,33', podrías hacer:
Código Delphi
[-]
function UnFormatCurr(const CurrValue: string): string;
begin
Result:= CurrValue;
Result:= StringReplace(Result, '$', '', [rfReplaceAll]);
Result:= StringReplace(Result, '.', '', [rfReplaceAll]);
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= '$ 1.250,25';
Edit2.Text:= FloatToStr(StrToFloat(UnformatCurr(Edit1.Text)) + 1000);
end;
Saludos