paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +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 } { e-mail: marco@freepascal.org }
{$mode Delphi} {$mode Delphi}
type type
someprocedureofobjectype=procedure (sender:tobject) OF someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
OBJECT;
a=class a=class
protected protected
fondisplay : someprocedureofobjectype; fondisplay : someprocedureofobjectype;
end; public
a:longint;
end;
b=class(A) b=class(A)
protected protected
fondisplay : someprocedureofobjectype; fondisplay : someprocedureofobjectype;
end; public
a:longint;
end;
begin begin
end. end.