Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизВ чём ошибка? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c