VPF::Удаление в дереве - Форум программистов

Girder

Дата 27.12.2005, 11:22 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

Код

var i:integer;
function Ch_Par(T:TTreeNode):Boolean;
begin
 Result:=false;
 if T=nil then exit;
 Result:=T.Selected;
 if Result=false then Result:=Ch_Par(T.Parent);
end;
begin
 for i:=TreeView1.SelectionCount-1 downto 0 do
  if Ch_Par(TreeView1.Selections[i].Parent)=false then TreeView1.Selections[i].Delete;
end;

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

Как слышим, так и пишим.
Истина где-то там...

Akella

Дата 27.12.2005, 11:24 (ссылка)

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

Загрузка ...

Творец

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

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

Так что, получается, что "нормально" никак нельзя удалить выделенные узлы, что-ли?

Akella

Дата 27.12.2005, 14:04 (ссылка)

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

Загрузка ...

Творец

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

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

Girder

вроде без ошибок, но удаляет даже если ничего не выделенно, поковыряю

Snowy

Дата 27.12.2005, 14:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(dsergey @ 27.12.2005, 14:04)

Girder
вроде без ошибок, но удаляет даже если ничего не выделенно

Сыпется. List index of bounds...
Добавлено @ 14:13
И бывает удаляет ненужное.

Girder

Дата 27.12.2005, 17:12 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

Код

 TreeView1.Select(TreeView1.Items.AddChild(nil,'sdf'),[ssCtrl]);
 while (TreeView1.SelectionCount>1) do
  TreeView1.Selections[TreeView1.SelectionCount-1].Delete;
 TreeView1.Selected.Delete;

PS: msControlSelect=true

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

Как слышим, так и пишим.
Истина где-то там...

Akella

Дата 29.12.2005, 13:45 (ссылка)

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

Загрузка ...

Творец

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

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

Girder, класс с меня +

этот код с форума на исходниках, вроде тоже работает, но размер кода smile

Код


function HasAsParent(Node, PotentialParent: TTreeNode): Boolean;
begin
  Node := Node.Parent;
  while (Node <> nil) and (Node <> PotentialParent) do
    Node := Node.Parent;
  Result := Node = PotentialParent;
end;

procedure DeleteAllSelected_Jack128(TV: TTreeView);
var
  List: TList;
  I, J: Integer;
  F: boolean;
begin
  List := TList.Create;
  try
    List.Capacity := TV.SelectionCount;
    for I := 0 to TV.SelectionCount - 1 do
    begin
      // Ищем, может кого из родителей уже занесли в список на выбывание ;)
      F := False;
      for J := 0 to List.Count - 1 do
      begin
        F := HasAsParent(TV.Selections[I], TTreeNode(List[J]));
        if F then Break;
      end;
      if F then // Родителя удалят, так что текущий узел удалять не нужно
        Continue;
      // Теперь нужно удалить всех детей, которые уже были записаны в список
      for J := List.Count - 1 downto 0 do
        if HasAsParent(TTreeNode(List[J]), TV.Selections[I]) then
          List.Delete(J);
      // Вот теперь можно со спокойной душей добовлять узел в список..
      List.Add(TV.Selections[I])
    end;
    for I := 0 to List.Count - 1 do
      TTreeNode(List[I]).Delete;
  finally
    List.Free;
  end;
end;

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