fpc/tests/tbs0022.pp
1998-12-02 13:05:01 +00:00

30 lines
260 B
ObjectPascal

type
tobject = object
procedure x;
constructor c;
end;
procedure a;
begin
end;
procedure tobject.x;
begin
end;
constructor tobject.c;
begin
end;
var
p : pointer;
begin
p:=@a;
p:=@tobject.x;
p:=@tobject.c;
end.