В чём ошибка?

← →
Makhanev A.S. © (2003-01-22 23:54) [0]

Представляю Вам код, который должен переносить данные из одного TreeView в другой посредством TStream:

TreeItemsStream: TStream; ... TreeItemsStream := TMemoryStream.Create; try TreeView1.SaveToStream(TreeItemsStream); TreeView2.LoadFromStream(TreeItemsStream); finally TreeItemsStream.Free; end;

В чём ошибка? У меня ничего не копируется.

Помогите, буду очень признателен.

← →
Tux (2003-01-23 00:04) [1]

Попробуй сперва стрим перемотать на начало. Вообще подозрительный код, делай лучше Assign.

← →
Jeer © (2003-01-23 00:16) [2]

TreeItemsStream: TMemoryStream;

← →
Jeer © (2003-01-23 00:18) [3]

TreeView1.SaveToStream(TreeItemsStream);
TreeItemsStream.Position := 0;
TreeView2.LoadFromStream(TreeItemsStream);

> Tux (23.01.03 00:04)

Assign здесь неприменим.
Assign: "Copies the contents of another, similar object."

> Jeer © , Tux

Боольшое спасибо! (Перемотать забыл...)

В чём ошибка? Найти похожие ветки