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

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

Как скопировать один TTreeView в другой? [D6, WinME]

Helg ©   (2002-11-15 19:49:00) 

Я делаю так:

procedure CopyNode(Sourse,Dist:TTreeView);
var
MrStrim:TStream;
begin

MrStrim:=TStream.Create;
Sourse.SaveToStream(MrStrim);
Dist.LoadFromStream(MrStrim);
MrStrim.Free;

выходит сообщение "Abstract Error". Где ошибка?

---

MBo   (2002-11-16 13:33:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var m:tmemorystream;
begin
m:=tmemorystream.create;
treeview1.SaveToStream(m);
m.position:=0;
treeview2.LoadFromStream(m);
m.free;
end;

---

Helg   (2002-11-16 13:29:00) [2]

>reonid
Хорошо, я сделал так:
var
MrStrim:TMemoryStrim;
.....
MrStrim:=TMemoryStrim.Create;ошибка теперь не выскакивает, но и ничего не копируется.
Пока я обхожусь
Source.SaveToFile(
Dist.LoadFromFile(но это же не серьёзно.

---

Helg   (2002-11-16 13:29:00) [3]

>reonid
Хорошо, я сделал так:
var
MrStrim:TMemoryStrim;
.....
MrStrim:=TMemoryStrim.Create;ошибка теперь не выскакивает, но и ничего не копируется.
Пока я обхожусь
Source.SaveToFile(
Dist.LoadFromFile(но это же не серьёзно.

---

reonid   (2002-11-15 20:56:00) [4]

MrStrim:= TStream.Create;
TStream - абстрактный класс.
Создавать нужно его потомков - напр TMemoryStream

---

Наверх