blob: 931269b66cf8a3296e8cf38bea29bffab2423c67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %fail }
{$mode macpas}
{$calling mwpascal}
unit tw11254a;
interface
type
t1 = function ( theDataPtr: Pointer): Integer;
t2 = function ( theDataPtr: Pointer): Integer;
procedure Iterate( theCallback: t1);
implementation
procedure Iterate( theCallback: t2); begin end;
end.
|