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