blob: 4ef475c9fae83ed471c6e3afcd0377655949509f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ Old file: tbs0257.pp }
{ problem with procvars in tp mode OK 0.99.11 (PM) }
{$mode tp}
type proc = procedure(a : longint);
procedure test(b : longint);
begin
Writeln('Test ',b);
end;
var
t : proc;
begin
t:=test;
t:=proc(test);
test(3);
t(5);
end.
|
