| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавить записи из одного TList в другой

DelphiLexx ©   (2006-08-17 09:42:00) 

Есть lst1, lst2: TList;
lst1 - содержит определенные записи
как добавить в конец lst1 записи из lst2 - т.е. подобно функции Append.

---

Сергей М.   (2006-08-17 10:34:00) [1]

> DelphiLexx ©   (17.08.06 10:10) [6]
>
>
> > см. TList.Assign()
>
> Assign заменит содержимое lst1 на lst2, а мне нужно добавить
> содержимое lst2 к концу содержимого lst1.


Ты хоть бы справку удосужился почитать, прежде чем делать утверждение)

---

StriderMan   (2006-08-17 10:12:00) [2]

for i := 0 to lst2.Count - 1 do
 lst1.AddObject(lst2.Objects[i]);

ЗЫ: насчет имен свойств ежели че не пинать :)

---

DelphiLexx   (2006-08-17 10:10:00) [3]

> см. TList.Assign()

Assign заменит содержимое lst1 на lst2, а мне нужно добавить содержимое lst2 к концу содержимого lst1.

---

Пусик   (2006-08-17 10:07:00) [4]

 TMyList=class(TList)
 public
   procedure AddItems(SrcList: TList);
 end;

procedure TMyList.AddItems(SrcList: TList);
var
 i: Integer;
begin
 for i := 0 to SrcList.Count - 1 do Add(SrcList.Items[i]);
end;


---

Сергей М.   (2006-08-17 10:06:00) [5]

> DelphiLexx ©   (17.08.06 09:42)


см. TList.Assign()

---

Мефисто   (2006-08-17 09:59:00) [6]

TList.Add()
TList.Insert();

Хочешь большего - пиши наследника от TList с нужным тебе фунционалом.

---

DelphiLexx   (2006-08-17 09:45:00) [7]

> А что, своих идей никаких нет?

Есть можно через цикл можно воспользоваться готовым методом TList'a только вот каким?

---

MBo   (2006-08-17 09:44:00) [8]

А что, своих идей никаких нет?

---

Наверх