[Leks]

Имеем код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

TItem = class (TObject)  private   fName:string;   fID:integer;  public   Property Name:string read fName write fName;   Property ID:integer read fID write fID;  end;   TGroup = class (TObjectList) // Реализован список объектов типа TItem  Procedure AppendItem(aName:string; aID:integer);// создает новый элемент списка end; ...   var  l1,l2:TGroup; begin  l1:=TGroup.create;  l1.AppendItem('qwe1',1);  l1.AppendItem('qwe2',2);  l1.AppendItem('qwe3',3);    l2:=TGroup.Create;  l2.AppendItem('qaz1',101);  l2.Add(l1[0]); ...  l1.delete(0);

И после этого у элемента l2[1] поле Name пустое, хотя сам объект присутствует и поле ID у него нормальное.
Если string поменять на ShortString, то Name не обнуляется.
Хотелось-бы понять почему так происходит и что делать с уже написанным кодом.

[Bargest]

Сообщение от Embarcadero

TObjectList is a TList with the capability of automatically freeing object entries when they are removed from the list.

В связи с этим полагаю (не утверждаю), что l1 владеет объектом и при удалении из списка он удаляется, а во втором списке остается указатель на невалидный объект. Это может кончится совершенно произвольными вещами, в том числе и похуже, чем пустая строка в имени.
Если так, то самым простым решением пожалуй будет отключить OwnsObjects в списках и не забывать удалять сами объекты руками, когда они более не нужны. Можно пойти другим путем - хранить в списках или динамических массивах не объекты, а записи (record), чтобы при добавлении элемента он полностью копировался в новый список/массив, а не просто сохранялся еще один указатель, как в случае с объектами.

Но это только предположение - я не особо разбирался в работе делфовых строк, списков и импровизированного сборщика мусора.