Текущий архив: 2002.11.28;
Скачать: CL | DM;

Вниз

Как скопировать один TTreeView в другой?   Найти похожие ветки 

← →
Helg ©   (2002-11-15 19:49) [0]

Я делаю так:

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

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

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

---

← →
reonid ©   (2002-11-15 20:56) [1]

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

---

← →
Helg ©   (2002-11-16 13:29) [2]

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

---

← →
Helg ©   (2002-11-16 13:29) [3]

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

---

← →
MBo ©   (2002-11-16 13:33) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c