Treeview

[Schodn]

ich müsste in einer Treeview alle notes einzeln mit allen unterpunkte durchsuchen ob ein note bzw unterpunkt einen bestimmten text enthält.

Wenn nein, lösche das ganze note und gehe zum nächsten note.
Wenn ja, gehe zum nächsten note

i hab in 3 stunden urlaub und kann mich überhaupt nicht mehr konzentrieren also helfts mir bitte

[barf00s]

die dinger heißen "Node" und nicht "Note"

Delphi-Quellcode:

var
  xNode: TTreeNode;

begin
  xNode := TreeView1.GetFirst;
  while xNode <> nil do begin
    if xNode.Text = 'whatever' then
      TreeView1.Items.Delete(TreeView1.Items.IndexOf(xNode))
    xNode := TreeView1.GetNext; // oder GetNextSibling
  end;
end;

andere möglichkeit wäres wohl einfach durch die items zu loopen und dann den passenden node zu löschen

Delphi-Quellcode:

for I := TreeView1.Items.Count - 1 downto 0 do
  if TreeView1.Items[I].Text = 'whatever' then
    TreeView1.Items.Delete(I);

kA bin kein großer fan vom TTreeView aber so in etwa wirds wohl funktionieren

[Schodn]

du hast mich falsch verstanden

ich möchte wenn der text nirgends vorkommt den ganzen ordner löschen
wenn er aber irgendwo vorkommt soll dieser ordner nicht verändert werden und alles beim alten bleiben mit allen unterverzeichnisen

Es sollen nur die ordner gelöscht werden wo es nicht vorkommt

[cell]

sry kenn mich mit dem nicht aus wünsch dir aber einen schönen urlaub :mrgreen: :sharkylinchen:

[ibp]

nur weil du in Gedanken schon am Strand liegst, können wir doch nichts dafür, dass du nicht erklären kannst was du willst. wie man einen TreeView durchsucht, wurde dir erklärt! ein wenig mithelfen musst du schon! Wie sieht dein Code aus?

[marabu]

Da haste:

Delphi-Quellcode:

function TreeContains(node: TTreeNode; nodeText: string): boolean;
begin
  Result := (node.Text = nodeText);
  if Result or (node.Count = 0) then Exit;
  node := node.getFirstChild;
  repeat
    Result := Result or TreeContains(node, nodeText);
    node := node.getNextSibling;
  until not Assigned(node) or Result;
end;

procedure TreeClean(node: TTreeNode; nodeText: string);
begin
  if TreeContains(node, nodeText) then begin
    node := node.GetLastChild;
    while Assigned(node) do begin
      TreeClean(node, nodeText);
      node := node.getPrevSibling;
    end
  end else
    node.Delete;
end;

Grüße vom marabu

[Schodn]

Ok vielen dank

eine frage hätt ich noch und zwar
Wie kann ich in der Treeview den 3.Hauptknoten löschen?


-1
^^-23
-2
-3
^^-33

dh ich will den -3 mit allen seinen Childs löschen

[marabu]

Delphi-Quellcode:

TreeView.Items[2].Delete;

marabu