sumar o restar valores tipo money

[gonza_619]

Bien, explico mira yo en el dbedit1.text ingreso un monto en moneda $, ya q el dbedit1.text esta realacionado a un campo tipo moneda, bien ingreso el monto que aun no esta alamcaenado en la tabla, bueno a ese monto lo quero psasr a currency para sumarlo a otro currency, he probado

var
x: Currency;
begin
x:= StrToCurr(DBEdit1.field.AsString);

pero yo no qiero pasar a currency un valor almacenado,sino un valor que ingrese en el dbedit que luego sera almacenado o no, gracias

[ecfisa]

Hola gonza.

Te entiendo perfectamente.

Probá de hacer lo siguiente:

Código Delphi [-]
procedure TForm1.DBEdit1Exit(Sender: TObject);
var
  x: Currency;
begin
  x:= StrToCurr(DBEdit1.Field.AsString); 
  x:= x + 1000;
  ShowMessage(FloatToStr(x));
end;

Notarás que que si ingresaste por ejemplo: $ 1200,00 el mensaje dira: 2200, que en definitiva es la suma del valor que acabas de ingresar + 1000...
No podés trabajar con el valor Text como si fuese un string por que es un MaskedText.

Simplificando mucho, una cosa es lo que se muestra debido a la máscara($,.) y otra el manejo interno del valor numérico.

Espero me hayas entendido.

Saludos.