Я думаю, что мне нужно пошаговое перемещение в правильном направлении:
У меня есть два Tobjectlists того же типа данных, и я хочу связать их в новый список, в который list1 должен быть скопирован (неизмененный) сопровождаемый list2 (наоборот)
type
TMyListType = TobjectList<MyClass>
var
list1, list2, resList : TMyListtype
begin
FillListWithObjects(list1);
FillListWithOtherObjects(list2);
list2.reverse
//Now, I tried to use resList.Assign(list1, list2, laOr),
//but Tobjectlist has no Assign-Method. I would rather not want to
//iterate over all objects in my lists to fill the resList
end;
Дельфи имеет какую-либо встроенную функцию для слияния двух Tobjectlists в один?
Используйте TObjectList.AddRange ()
и установите для OwnsObjects
значение False
, чтобы избежать двойного освобождения элементов в LRes
.
var
L1, L2, LRes: TObjectList<TPerson>;
Item: TPerson;
{...}
L1 := TObjectList<TPerson>.Create();
try
L2 := TObjectList<TPerson>.Create();
try
LRes := TObjectList<TPerson>.Create();
try
L1.Add(TPerson.Create('aa', 'AA'));
L1.Add(TPerson.Create('bb', 'BB'));
L2.Add(TPerson.Create('xx', 'XX'));
L2.Add(TPerson.Create('yy', 'YY'));
L2.Reverse;
LRes.OwnsObjects := False;
LRes.AddRange(L1);
LRes.AddRange(L2);
for Item in LRes do
begin
OutputWriteLine(Item.FirstName + ' ' + Item.LastName);
end;
finally
LRes.Free;
end;
finally
L2.Free;
end;
finally
L1.Free;
end;