Función Delphi que convierte un tipo de datos real (double) a entero (integer).
Ejemplo:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
function facturar (NumeroFactura : string) : boolean; var numLargo : double; numFac : integer; begin result := false; numLargo := md.tFacturaNumero.asFloat; try numFac := trunc (numLargo); result := true; except result := false; end; ... end; |
Pertenece a la unidad SYSTEM.
