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

Вниз

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

← →
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);

---

← →
Makhanev A.S. ©   (2003-01-23 16:34) [4]

> Tux (23.01.03 00:04)

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




> Jeer © , Tux


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

---

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

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

Наверх

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