library uDll;

uses  math;

function roundup(var Num: Double; var Prec: Integer): Double; cdecl;export;

var

  LFactor: Double;

begin

  LFactor := IntPower(10, Prec);

  Result := Round(Num / LFactor) * LFactor;

end;

exports roundup;

{DECLARE EXTERNAL FUNCTION ROUNDUP

  DOUBLE PRECISION, INTEGER

  RETURNS DOUBLE PRECISION BY VALUE

  ENTRY_POINT 'roundup' MODULE_NAME 'UDll'}

begin

end.

RoundTo(1234567, 3)	1234000

RoundTo(1.234, -2)	1.23

RoundTo(1.235, -2)	1.24