TplPQueue

type TplPQueue = class(TplContainer)

protected

  pqData: PplPQData;

  pqCapacity: Integer;

  pqDelta: Integer;

  procedure ForEachPointer(); override;

  function StoresPointers; override;

  procedure Expand();

  procedure InsertMin();

  procedure InsertMax();

  procedure ModifiedInsert();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure LoadFromStream(); override;

  procedure StoreToStream(); override;

  procedure Clear; override;

  procedure Insert();

  function DeleteMin;

  function DeleteMax;

  procedure Assign(); override;

  procedure Join();

  function Iterate();

  function Test;

end;

TplPQueue

TplContainer

TObject