fpc/tests/webtbf/tw1655.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

30 lines
347 B
ObjectPascal

{ %FAIL }
{$MODE delphi}
type
TProc = procedure of object;
TMyClass = class
i: Integer;
procedure Test;
procedure Doit;
end;
procedure TMyClass.Test;
begin
WriteLn('i = ', i);
end;
procedure TMyClass.Doit;
var
p: TProc = @Test;
begin
i := 12345;
p;
end;
var
o: TMyClass;
begin
o := TMyClass.Create;
o.Doit;
end.