Как хранить динамические массивы в TList?

О, это было бы намного приятнее в новых версиях Delphi... Вы бы использовали общий, TList. var группы: TList;

лучше всего использовать другой динамический массив: группы: массив TGroup;

причина в том, что динамические массивы управляются компилятором и подсчитываются ссылки. TList работает только с указателями. Нет прямого способа сохранить ссылочные отсчеты в здравом уме при попытке поместить dynarrays в TList.

другой проблема в том, что вы добавляете адреса стека переменной динамического массива в TList, а не фактический массив. Выражение @CurGroup - это "адрес переменной CurGroup", которая является локальной переменной, находится в стеке.

У меня нет D7 на машине здесь, но вы можете попробовать что - то вроде этого (консольное тестовое приложение-оно компилируется в XE без подсказок или предупреждений, но не уверен, как D7 будет обрабатывать его):

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

type
  TGroup = array of Integer;
  THolder=class(TObject)
    Group: TGroup;
  end;

var
  GroupList: TList;
  i: Integer;

begin
  GroupList := TList.Create;
  for i := 0 to 2 do
  begin
    GroupList.Add(THolder.Create);
    with THolder(GroupList[GroupList.Count - 1]) do
    begin
      SetLength(Group, 3);
      Group[0] := i;
      Group[1] := i + 10;
      Group[2] := i + 20;
    end;
  end;
  for i := 0 to GroupList.Count - 1 do
  begin
    Writeln(i, ':0 ', THolder(GroupList[i]).Group[0]);
    Writeln(i, ':1 ', THolder(GroupList[i]).Group[1]);
    Writeln(i, ':2 ', THolder(GroupList[i]).Group[2]);
  end;
  // Not cleaning up list content, because we're exiting the app.
  // In a real app, of course, you'd want to free each THolder in 
  // the list, or use a TObjectList and let it own the objects.
  // You'd also want a try..finally to make sure the list gets freed.
  GroupList.Free;
  Readln;
end.

еще одна вещь, которую вы можете попробовать, - это использовать TObjectList. TObjectList может хранить список объектов, поэтому можно создать новый потомок класса TObject, а затем управлять TObjectList с помощью этих объектов.

что-то вроде (непроверенных):

type TGroupArray : array of Integer;

type TGroup = class(Tobject)
  GroupArray : TGroupArray;
end;

GroupList : TobjectList;

procedure TForm1.FormCreate(Sender: TObject);                                        
var CurGroup : TGroup;
begin  

GroupList:= TObjectList.Create; 
CurGroup := TGroup.Create;
SetLength(CurGroup.GroupArray,1);
CurGroup.GroupArray[0] := 10;

GroupList.Add(CurGroup);

RetreiveGroup := GroupList.Items[0];
FreeandNil(GroupList);
end;

etc...

когда вы код:

 for grp:= 1 to 4  DO                                     // Put a dummy item in TList
  begin
   SetLength(CurGroup, 1);                                // Create new group
   Groups.Add(@CurGroup);                                 // Store it
  end;

фактически, SetLength (CurGroup) не создаст новую группу. Он изменит размер только одной существующей CurGroup.

поэтому @CurGroup не изменится: это всегда будет какой-то адрес в стеке, где добавлена CurGroup. Один и тот же адрес добавляется в список несколько раз.

поэтому вам придется создать динамический массив экземпляров TGroup, например:

var GroupArray: array of TGroup;

SetLength(GroupArray,4);
for grp := 0 to high(GroupArray) do
begin
  SetLength(GroupArray[grp],1);
  Groups.Add(@GroupArray[grp]);
end;

но, конечно, GroupArray должен оставаться выделенным во время все временные группы будут нуждаться в этом. Поэтому вам, возможно, придется поместить этот GroupArray как свойство в класс, потому что если вы создадите этот GroupArray в стеке, все элементы GroupArray[] будут освобождены, когда метод выйдет и его стек будет освобожден.

но, конечно, GroupArray[] будет более прямым доступом к элементам TGroup... Группы[i] будут равны GroupArray []... Без проблемы подсчета ссылок... Так, например, при изменении размера, например, TGroup элемента из Указателя в группах [] я не уверен, что у вас не будет утечки памяти...

Так, в основном все предлагает создать массив массива вместо использования TList. Ну, я уже сделал это. Я просто хотел "обновить" от "массива массива" до TList, так как он имеет Add(). Похоже, я вернусь к исходному коду. Спасибо всем и +1 за каждый ответ.