fpcsrc/tests/webtbf/tw14650a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }

{$mode objfpc}

uses
  classes;

type
  TPublicQueueList = class(tfplist)
  public
    property List: PPointerList read FList;
  end;

begin
end.