TSet

type generic TSet <T,TCompare>= class

public

type

  PNode = ^Node;

  Node = record

  Data: T;

  Left: PNode;

  Right: PNode;

  Parent: PNode;

  Color: Boolean;

end;

  TIterator = TIterator;

public

  function Find();

  function FindLess();

  function FindLessEqual();

  function FindGreater();

  function FindGreaterEqual();

  function InsertAndGetIterator();

  function Max;

  constructor Create;

  destructor Destroy; override;

  function Size;

  function IsEmpty;

  function NFind();

  function NFindLess();

  function NFindLessEqual();

  function NFindGreater();

  function NFindGreaterEqual();

  function NInsert();

  function NMin;

  function NMax;

end;

TSet

TObject