Как скопировать один 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]

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

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