Форум программистов [Powered by Invision Power Board]

Программа представляет собой набор список групп, в которых находятся пользователи.

Диаграмма классов:

TGroup List
|-->TUserList
---|-->TStruct

Т.е. список групп содержит -> списки юзеров -> которые содержат в себе структуру каждого юзера.

Вот так выглядят классы:

Код


type TGroupList = class (TComponent)

  private
    List: TObjectList;
    function GetItems(Index: Integer): TUserList;
    procedure SetItems(Index: Integer; const Value: TUserList);

  public
   function Count: Integer;
   procedure Add(Value: TUserList);
   procedure Clear;
   procedure Delete(I:Integer);

   constructor Create;
   destructor  Destroy; override;

   procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
   procedure SetParentComponent(Value: TComponent); override;

   property Items[Index:Integer]: TUserList read GetItems write SetItems;
  default;

  end;

Код


  type TUserList = class (TComponent)

  private
   Name: String;
   List: TObjectList;

   function GetTheName: String;
   procedure SetTheName(const Value: String);

   function GetItems(Index: Integer): TUserStruct;
   procedure SetItems(Index: Integer; const Value: TUserStruct);

  public
   property Items[Index:Integer]: TUserStruct read GetItems write SetItems;

   function Count: Integer;
   procedure Add(Value: TUserStruct);
   procedure Clear;
   procedure Delete(I:Integer);

   procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
   procedure SetParentComponent(Value: TComponent); override;


  constructor Create;
  destructor  Destroy; override;

  published
     property GroupName: String read GetTheName write SetTheName;

  end;

Код


 type
 TUserStruct = class (TComponent)
 private
  ThName:String;               

 protected
  procedure SetTheName(NewName: String);
  function GetTheName: String;

 public
   constructor Create;

 published
  property ItemName: String read GetTheName write SetTheName;
 end;

Сделать высокоуровневую сериализацию - получилось (http://www.rsdn.ru/article/delphi/serialization.xml), а с десериализацией - проблема, в душе не чаю как писать для моей реализации SetParentComponent(Value: TComponent); override;

Если можно приведите пример или дайте что почитать, ибо в Интернете мало чего нашёл по этому поводу.