tpointerqueue

type tpointerqueue = class(tpointerlist)

public

  function datapo; virtual;

  procedure clear; override;

  function delete(); override;

  function add();

  function indexof();

  procedure insert(); override;

  function getfirst;

  function getlast;

  property maxcount: Integer; [rw]

end;

tpointerqueue

tpointerlist

tnullinterfacedobject

TObject,iunknown