mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
23 lines
386 B
ObjectPascal
23 lines
386 B
ObjectPascal
{ %FAIL }
|
|
|
|
{ derived from Web Bug Report 1203 }
|
|
{$mode Delphi}
|
|
type
|
|
someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
|
|
a=object
|
|
protected
|
|
fondisplay : someprocedureofobjectype;
|
|
public
|
|
a:longint;
|
|
end;
|
|
|
|
b=object(A)
|
|
protected
|
|
fondisplay : someprocedureofobjectype;
|
|
public
|
|
a:longint;
|
|
end;
|
|
|
|
begin
|
|
end.
|