fpcdocs/sysutex/ex64.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Program Example64;

{ This program demonstrates the BCDToInt function }

Uses sysutils;

Procedure Testit ( L : longint);
begin
  Writeln (L,' -> ',BCDToInt(L));
end;

Begin
  Testit(10);
  Testit(100);
  TestIt(23);
End.