Función Delphi que convierte un tipo de datos real (double) a entero (integer).

Ejemplo:

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;

Funciones Delphi