Организация List of ObjectList

[ArtGrek]

нужен список, списков объектов, у которого можно удалят и добовлят списки,
при етом список объектов так же должен имет функции уделения и добавления объектов
зделал список объектов, но как его занести в обшии список чет не соображу, подскажите пожалуста...

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Contnrs;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  EditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEdit;
    procedure SetItems(Index: Integer; const Value: TEdit);
  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;
var
  Form1: TForm1;
  EditList1: TObjectList;
  Edit: TEdit;
implementation
{$R *.dfm}
{ EditList }
function EditList.GetItems(Index: Integer): TEdit;
begin
  Result := TEdit(inherited GetItem(Inde)
end;
procedure EditList.SetItems(Index: Integer; const Value: TEdit);
begin
  inherited SetItem(Index, Value)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  EditList1 := TObjectList.Create(true);
  Edit := TEdit.Create(self);
  Edit.Parent := Form1;
  Edit.Name := 'MyEdit';    
  EditList1.Add(Edit);
 end;
end.

[Пепел Феникса]

сделайте список списков обьектов

[ArtGrek]

так вот ето и не могу, или могу но не поиму как)

[Пепел Феникса]

ну один список у вас есть, далее делаем список таких списков это:

type
  TEditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEdit;
    procedure SetItems(Index: Integer; const Value: TEdit);
  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;

function TEditList.GetItems;
begin
  Result := TEdit(inherited GetItem(Inde)
end;

procedure TEditList.SetItems;
begin
 inherited SetItem(Index, Value)
end;

список эдитов

type
  TListOfEditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEditList;
    procedure SetItems(Index: Integer; const Value: TEditList);
  public
    function NewList:integer;//тупо создает новый список(чтоб руками не делать, короче для удобства)
    property Items[Index: Integer]: TEditList read GetItems write SetItems; default;
  end;

implementation

function TListOfEditList.GetItems;
begin
  Result := TEditList(inherited GetItem(Inde)
end;

procedure TListOfEditList.SetItems;
begin
 inherited SetItem(Index, Value)
end;

function NewList;
begin
 Result:=Add(TEditList.Create);
end;

примерно так

[ArtGrek]

как, после того, как я удалил компонент, поднят на 1 все компоненты что после него?

procedure TForm1.Button2Click(Sender: TObject);
begin
  EditList1[1].Destroy;
end;

[ArtGrek]

EditList1.Pack

[Пепел Феникса]

вообще используйте метод Delete самого списка.(он вызывает Destroy сам)

EditList1.Delete(1);