Error de Currency

[Epunamun]

Estoy manejando valores de monedas y nesecito hacer calculos y me sale error, de tipos ejemplo



var
a: Currency;
a1: Currency;
tot: Currency;
begin
a := strtoint(dbedit1.Text); //precio compra
a1 := strtoint(maskedit1.Text); //valor del cliente
tot := (a * a1);
maskedit2.Text := inttostr(tot);


Esto va a un procedimiento ayuda plz

[marcoszorrilla]

Prueba así:


procedure TForm1.Button1Click(Sender: TObject);
var
a : Currency;
a1 : Currency;
tot: Currency;
begin
a := strtoint(edit1.Text); //precio compra
a1 := strtoint(maskedit1.Text); //valor del cliente
tot:= (a * a1);
maskedit1.Text := FormatFloat(',0.00',tot);
end;


Además deberías utilizar Try...Except para cubrirte de valores incorrectos.

Un Saludo.

[Epunamun]

muchas gracias te pasaste