paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 14:12:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed

Browse Source
This commit is contained in:
florian 2000-12-10 14:15:02 +00:00
parent 5d57010458
commit 4cd1fca062
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw1203.pp
View File

@ -3,18 +3,20 @@
{ e-mail: marco@freepascal.org }
{$mode Delphi}
type
someprocedureofobjectype=procedure (sender:tobject) OF
OBJECT;
someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
a=class
protected
fondisplay : someprocedureofobjectype;
end;
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
b=class(A)
protected
fondisplay : someprocedureofobjectype;
end;
b=class(A)
protected
fondisplay : someprocedureofobjectype;
public
a:longint;
end;
begin
end.