Estoy manejando valores de monedas y nesecito hacer calculos y me sale error, de tipos ejemplo
Código:
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