| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
В чём ошибка? [D7, Win2k]
Makhanev A.S. © (2003-01-22 23:54:00)Представляю Вам код, который должен переносить данные из одного TreeView в другой посредством TStream:
TreeItemsStream: TStream;
...
TreeItemsStream := TMemoryStream.Create;
try
TreeView1.SaveToStream(TreeItemsStream);
TreeView2.LoadFromStream(TreeItemsStream);
finally
TreeItemsStream.Free;
end;
В чём ошибка? У меня ничего не копируется.
Помогите, буду очень признателен.
Makhanev A.S. (2003-01-23 16:34:00) [1]
> Tux (23.01.03 00:04)
Assign здесь неприменим.
Assign: "Copies the contents of another, similarobject."
> Jeer © , Tux
Боольшое спасибо! (Перемотать забыл...)
Jeer (2003-01-23 00:18:00) [2]TreeView1.SaveToStream(TreeItemsStream);
TreeItemsStream.Position := 0;
TreeView2.LoadFromStream(TreeItemsStream);
Jeer (2003-01-23 00:16:00) [3]TreeItemsStream: TMemoryStream;
Tux (2003-01-23 00:04:00) [4]Попробуй сперва стрим перемотать на начало. Вообще подозрительный код, делай лучше Assign.
| |
