blob: c8ca13436baa5e5abc0cf8aaed81ad1a0705422e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Old file: tbs0341.pp }
{ }
procedure IncLimit(var B: Byte; const Limit: Byte; const Incr: Byte);
begin
end;
procedure IncLimit(var B: Longint; const Limit: Longint; const Incr: Longint);
begin
end;
var
b : byte;
begin
inclimit(b,128,3);
end.
|
