Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скопировать один TreeView в другой 
:(
    Опции темы
Delphist
  Дата 26.7.2006, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Мне нужно сделать копию одного TreeView в другой. Метод Assign не помагает.
Т.е. у меня есть TreeView1 и TreeView2. 
TreeView1 должен стать аналогичен TreeView2 и после чего TreeView2 делаем TreeView2.Free.  Так как сделать копию?

  

Это сообщение отредактировал(а) Delphist - 26.7.2006, 15:08


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
volvo877
Дата 26.7.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116
Delphist, что насчет
Код
  treeview1.Items := treeview2.Items;
?

Все нормально копируется... 
PM MAIL   Вверх
ErManDir
Дата 26.7.2006, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 11.12.2003

Репутация: нет
Всего: нет
А так получается?
Код

var
  Stream:TStream;
begin
  Stream:=TMemoryStream.Create;
  TreeView2.SaveToStream(Stream);
  // Stream.Position:=0;  Надо или не надо, не знаю.
  TreeView1.LoadFromStream(Stream);
  Stream.Free;
end;


 
PM MAIL ICQ YIM   Вверх
Delphist
Дата 26.7.2006, 15:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(volvo877 @ 26.7.2006,  15:14)
Delphist, что насчет
Код
  treeview1.Items := treeview2.Items;
?

Все нормально копируется...

Копируется, то копируется только обработчик события OnCompare теряется и т.п. 


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Alexeis
Дата 26.7.2006, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Код

procedure TForm1.btn1Click(Sender: TObject);
var
  m : TMemoryStream;
begin
  m := TMemoryStream.Create;
  m.Seek(0, soFromBeginning);
  tv2.SaveToStream(m);
  m.Seek(0, soFromBeginning);
  tv1.LoadFromStream(m);
  m.Free;
end;

Вот только обработчики не хотят копироваться все равно! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Delphist
Дата 27.7.2006, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(alexeis1 @ 26.7.2006,  16:03)
Код

procedure TForm1.btn1Click(Sender: TObject);
var
  m : TMemoryStream;
begin
  m := TMemoryStream.Create;
  m.Seek(0, soFromBeginning);
  tv2.SaveToStream(m);
  m.Seek(0, soFromBeginning);
  tv1.LoadFromStream(m);
  m.Free;
end;

Вот только обработчики не хотят копироваться все равно!

У меня дерево создается через AddObject в котором 2-ым параметром служит указатель Pointer.
Так вот использую MemoryStream указатель в скопированном дереве не определяется как быть? 


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Alexeis
Дата 27.7.2006, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата

Use LoadFromStream to read the nodes of the tree view from the specified stream. LoadFromStream adds the nodes in the stream data to the tree view.

К сожаленю, в поток заносится информация, только об самих узлах. Похоже, что придется писать свою функцию типа
Код

function Copy(tv1 : TTreeView) : TTreeView;
Begin
   //перебор узлов и переприсваивание всех небходимых
   //данных 
end;
 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Delphist
  Дата 27.7.2006, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(alexeis1 @ 27.7.2006,  12:10)
К сожаленю, в поток заносится информация, только об самих узлах. Похоже, что придется писать свою функцию типа
Код

function Copy(tv1 : TTreeView) : TTreeView;
Begin
   //перебор узлов и переприсваивание всех небходимых
   //данных 
end;

Что значит "перебор узлов и переприсваивание всех небходимых" вот так делать же нельзя:
tv1.Items.Item[i] := tv.Items.Item[i]
Покажи код smile  


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Alexeis
Дата 27.7.2006, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(Delphist @  27.7.2006,  12:25 Найти цитируемый пост)
нельзя:tv1.Items.Item[i] := tv.Items.Item[i]

Я думаю в это и нет особого смысла, можно первой операцией произвести копирование через поток.
А далее произвести копирование того что не было скопированно через поток что-то вроде этого 
Result.Items[i].Data :=  tv1.Items[i].Data;
и 
Result.OnClick := tv1.OnClick;  

Это сообщение отредактировал(а) alexeis1 - 27.7.2006, 13:21


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Delphist
Дата 27.7.2006, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(alexeis1 @ 27.7.2006,  13:19)
Я думаю в это и нет особого смысла, можно первой операцией произвести копирование через поток.
А далее произвести копирование того что не было скопированно через поток что-то вроде этого 
Result.Items[i].Data :=  tv1.Items[i].Data;
и Result.OnClick := tv1.OnClick;

А случайно после выполнения tv1.Free Result.Items[i].Data не станет ли равна nil? 


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Alexeis
Дата 27.7.2006, 15:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата

Note:    The memory referenced by Ptr is not freed when the tree nodes object is freed

Так говорит справка, т.е. пока сами не удалите никакой free этого делать не будет, да оно и понятно, там же может быть не только объект,  но и просто буфер памяти, а поскольку, TreeView незнает что там конкретно то и удалить не сможет, даже если бы хотел. 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Delphist
Дата 27.7.2006, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphist Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

Репутация: 2
Всего: 3
Цитата(alexeis1 @ 27.7.2006,  15:00)
Цитата

Note:    The memory referenced by Ptr is not freed when the tree nodes object is freed

Так говорит справка, т.е. пока сами не удалите никакой free этого делать не будет, да оно и понятно, там же может быть не только объект,  но и просто буфер памяти, а поскольку, TreeView незнает что там конкретно то и удалить не сможет, даже если бы хотел.

А почему же тогда FastMM не определяет утечку памяти? 


--------------------
ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...
PM MAIL ICQ   Вверх
Quadr0
Дата 27.7.2006, 17:29 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 11:45
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0629 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.