tengo otro consulta
... agregue la siguiente función al codigo anterior
:
// Funcion que permite redondear...
Function RoundN(X: Extended): Extended;
begin
Result := Int(X) + Int(Frac(X) * 2);
end;
la estoy llamando de un form... la declaro en Uses...(Unit8)... pero cuando la ejecuto, me origina un error de Undeclared Identifier :
'RoundN'.. pero si la funcion la dejo en el form.. me funciona bien....
no entiendo....
vTot_Iva.Text := FloatToStr(RoundN(StrToFloat(vTot_Net.Text)*0.19));