VPF::VirtualStringTree ошибка удаления узла

Zlo

Дата 4.8.2013, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: 1
Всего: 1

Код


procedure TForm1.DeleteComputerExecute(Sender: TObject);
begin
   if VST.FocusedNode<>nil then begin
      Node:=VST.FocusedNode;
      VST.DeleteNode(Node,False);
 end;
end;

Код


procedure TForm1.DeleteComputerExecute(Sender: TObject);
begin   
   VST.DeleteSelectedNodes;
end;

Оба этих кода выдают ошибку:

Код


access violation at 0x006e180a: read of address 0x00000000

однако например если удалять детей узла то получается

Код


procedure TForm1.DeleteComputerExecute(Sender: TObject);
begin   
   if VST.FocusedNode<>nil then begin
      Node:=VST.FocusedNode;
      VST.DeleteChildren(Node);
  end;
end;

как удалить корневой узел? Что я не так делаю?

kami

Дата 4.8.2013, 22:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 23
Всего: 72

на какое событие висит метод DeleteComputerExecute?

ZBugz

Дата 5.8.2013, 06:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 636
Регистрация: 15.2.2006
Где: Москва

Репутация: 6
Всего: 6

Код


DeleteSelectedNodes

Работает без проблем. Возможно у тебя косячный билд, скачай новый VT

Zlo

Дата 8.8.2013, 12:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: 1
Всего: 1

Цитата(kami @ 4.8.2013, 22:29

)

на какое событие висит метод DeleteComputerExecute?

это пункт меню попап, при клике правой кнопкой мыши на дереве

kami

Дата 9.8.2013, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 23
Всего: 72

Цитата(Zlo @ 8.8.2013, 12:56

)

это пункт меню попап, при клике правой кнопкой мыши на дереве

VT, по крайней мере в версии, которая у меня, нормально реагирует на это.
Проблема скорее всего где-то в другом месте.
Запусти из Delphi, нажми break при возникновении AV и посмотри по CallStack сверху вниз - какой из твоих модулей участвует в возникновении ошибки.

MetalFan

Дата 9.8.2013, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

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

Репутация: 62
Всего: 128

может OnFreeNode криво написан?

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »