home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / ClassEng / Listing3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-06-28  |  527 b   |  15 lines
  1. private
  2.   function GetItem(I: Integer): Pointer;
  3.   function GetItemByName(const Name: String): Pointer;
  4.   procedure SetItem(I: Integer; const Value: Pointer);
  5.   procedure SetItemByName(const Name: String; const Value: Pointer);
  6. public
  7.   property Item[I: Integer]: Pointer
  8.       read GetItem write SetItem;
  9.   property ItemByName[const Name: String]: Pointer
  10.       read GetItemByName write SetItemByName;
  11. . . .
  12. // examples of use in code
  13. if MyList.ItemByName['Fred'] = nil then
  14.   MyList.ItemByName['Ethel'] := nil;
  15.