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

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

Скопировать один TreeView в другой

DelphiLexx ©   (2006-07-26 16:09:00) 

Мне нужно сделать копию одного TreeView в другой. Метод Assign не помагает.
Т.е. у меня есть TreeView1 и TreeView2.
TreeView1 должен стать аналогичен TreeView2 и после чего TreeView2 делаем TreeView2.Free.  Так как сделать копию?

---

DelphiLexx   (2006-07-27 10:38:00) [1]

> Так тебе что надо, Items скопировать ?

Один из способ копирования одного TreeView в другой даже с сохранением
сортировки:

procedure TForm1.btn1Click(Sender: TObject);
var
 m : TMemoryStream;
begin
 m := TMemoryStream.Create;
 m.Seek(0, soFromBeginning);
 tv2.SaveToStream(m);
 m.Seek(0, soFromBeginning);
 tv1.LoadFromStream(m);
 m.Free;
end;

Но у меня первоначальной дерево создается через AddObject, в котором
2-ой параметр укаатель Pointer. Так вот данные этих не сохраняются. Как быть?

---

PSPF2003   (2006-07-27 09:15:00) [2]

Так тебе что надо, Items скопировать ?

---

DelphiLexx   (2006-07-27 09:06:00) [3]

> TreeView1.Assign();

TreeView1.Assign();

---

PSPF2003   (2006-07-26 18:38:00) [4]

Хм... :)
А ты как писал?
Так :
 TreeView1.Assign();
или так :
 TreeView1.Items.Assign();

---

MBo   (2006-07-26 16:18:00) [5]

>А почему Assign не работает?
Этот метод не обязан быть реализован

---

DelphiLexx   (2006-07-26 16:15:00) [6]

> SaveToStream/Load

А почему Assign не работает?

---

MBo   (2006-07-26 16:10:00) [7]

SaveToStream/Load

---

Наверх