PC World 1998 October/PCWorld_1998-10_cd.bin/software/prehled/komix/DATA.Z/ClassDict.pas

Pascal/Delphi Source File | 1997-08-08 | 5.2 KB | 282 lines

unit ClassDict;



interface



uses

  // Start user include section

  // End user include section

  Classes;



type

  TClassDictElem = class

  private

    // User defined attributes

    obj: Pointer;

    key: Variant;



  published

    // User defined methods

    constructor Create;

    destructor Destroy; override;



    // Access methods

    function getKey: Variant;

    procedure setObj(newObj: Pointer);

    procedure setKey(newKey: Variant);

    function getObj: Pointer;

  end;





  TClassDict = class

  private

    // Association attributes

    elemSet: TList;

    published

    // User defined methods

    constructor Create;

    destructor Destroy; override;

    procedure Remove(obj: Pointer);

    function Count: Integer;

    procedure RemoveUsingKey(key: Variant);

    function FirstKey: Variant;

    function Last: Pointer;

    function Item(key: Variant): Pointer;

    procedure Add(key: Variant; obj: Pointer);

    function First: Pointer;

    function LastKey: Variant;



    // Access methods

    procedure addElem(newTClassDictElem: TClassDictElem);

    function getElem: TList;

    procedure removeElem(oldTClassDictElem: TClassDictElem);

  end;





implementation



constructor TClassDictElem.Create;

  // Start user section

  // End user section

begin

  inherited Create;



  // Start user section

  // End user section

end;





destructor TClassDictElem.Destroy;

  // Start user section

  // End user section

begin

  // Start user section

  // End user section



  inherited Destroy;

end;



function TClassDictElem.getKey: Variant;

begin

  getKey := key;

end;





procedure TClassDictElem.setObj(newObj: Pointer);

begin

  obj := newObj;

end;





procedure TClassDictElem.setKey(newKey: Variant);

begin

  key := newKey;

end;





function TClassDictElem.getObj: Pointer;

begin

  getObj := obj;

end;







constructor TClassDict.Create;

  // Start user section

  // End user section

begin

  inherited Create;



  elemSet := TList.Create;

  // Start user section

  // End user section

end;





destructor TClassDict.Destroy;

  // Start user section

  // End user section

begin

  // Start user section

  // End user section

  elemSet.Destroy;



  inherited Free;

end;





procedure TClassDict.Remove(obj: Pointer);

var

  tmpElem: TClassDictElem;

  Index: integer;

  NrOfElems: integer;

  Found: boolean;



begin

  NrOfElems := elemSet.Count;

  Index := 0;

  Found := False;

  while (Index <> NrOfElems) and (not(Found)) do

  begin

    tmpElem := elemSet.Items[Index];

    if tmpElem.getObj() = obj then

    begin

      removeElem(tmpElem);

      tmpElem.Destroy();

      Found := True;

    end;

    inc(Index);

  end;

end;





function TClassDict.Count: Integer;

begin

  Count := elemSet.Count;

end;





procedure TClassDict.RemoveUsingKey(key: Variant);

var

  tmpElem: TClassDictElem;

  Index: integer;

  NrOfElems: integer;

  Found: boolean;



begin

  NrOfElems := elemSet.Count;

  Index := 0;

  Found := False;

  while (Index <> NrOfElems) and (not(Found)) do

  begin

    tmpElem := elemSet.Items[Index];

    if (tmpElem.getKey() = key) then

    begin

      removeElem(tmpElem);

      tmpElem.Destroy();

      Found := True;

    end;

    inc(Index);

  end;

end;





function TClassDict.FirstKey: Variant;

var

  tmpElem: TClassDictElem;



begin

  tmpElem := elemSet.First();

  FirstKey := tmpElem.getKey();

end;





function TClassDict.Last: Pointer;

var

  tmpElem: TClassDictElem;



begin

  tmpElem := elemSet.Last();

  Last := tmpElem.getObj();

end;





function TClassDict.Item(key: Variant): Pointer;

var

  tmpElem: TClassDictElem;

  Index: integer;

  NrOfElems: integer;

  Found: boolean;



begin

  NrOfElems := elemSet.Count;

  Index := 0;

  Found := False;

  Item := NIL;

  while (Index <> NrOfElems) and (not(Found)) do

  begin

    tmpElem := elemSet.Items[Index];

    if (tmpElem.getKey() = key) then

    begin

      Item := tmpElem.getObj();

      Found := True;

    end;

    inc(Index);

  end;

end;





procedure TClassDict.Add(key: Variant; obj: Pointer);

var

  tmpElem: TClassDictElem;



begin

  tmpElem := TClassDictElem.Create;

  tmpElem.setKey(key);

  tmpElem.setObj(obj);

  addElem(tmpElem);

end;





function TClassDict.First: Pointer;

var

  tmpElem: TClassDictElem;



begin

  tmpElem := elemSet.First;

  First := tmpElem.getObj;

end;





function TClassDict.LastKey: Variant;

var

  tmpElem: TClassDictElem;



begin

  tmpElem := elemSet.Last;

  LastKey := tmpElem.getKey;

end;





procedure TClassDict.addElem(newTClassDictElem: TClassDictElem);

begin

  if (elemSet.IndexOf(newTClassDictElem) = -1) then

  begin

    elemSet.Add(newTClassDictElem);

  end;

end;





function TClassDict.getElem: TList;

begin

  getElem := elemSet;

end;





procedure TClassDict.removeElem(oldTClassDictElem: TClassDictElem);

begin

  elemSet.Remove(oldTClassDictElem);

end;





end.