Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.021 c
14-5245
Axis_of_Evil
2003-01-16 15:55
2003.02.03
Delphi и сайты


1-4862
pet
2003-01-24 18:59
2003.02.03
ярлык


1-4902
defenseur
2003-01-25 14:56
2003.02.03
Функции чтения-записи двоичного файла


1-4982
sddqw
2003-01-23 14:03
2003.02.03
Удаление обьектов


14-5199
Wonder
2003-01-15 14:04
2003.02.03
Где бы нарыть