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

no message

Browse Source
This commit is contained in:
florian 2000-11-09 20:43:18 +00:00
parent 2f75d70f63
commit 4e574233e4
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tbug1203.pp Normal file
View File

@ -0,0 +1,22 @@
{ Source provided for Free Pascal Bug Report 1203 }
{ Submitted by "Marco van de Voort" on 2000-10-29 }
{ e-mail: marco@freepascal.org }
{$mode Delphi}
type
someprocedureofobjectype=procedure (sender:tobject) OF
OBJECT;
a=class
protected
fondisplay : someprocedureofobjectype;
end;
b=class(A)
protected
fondisplay : someprocedureofobjectype;
end;
begin
end.