avanceret slet af nodes i treeview

Er det ikke bare at lave en søge funktion der ser om der findes filer (Childeren navngivet noget med 'Fil') i nogen af mapperne og dernæst slette dem, hvis de altså er tomme for filer?

det er vist mere kompliceret end som så, ihvertfald at forklare...

kan jeg sende dig et eks.?

det ville være nemmest hvis du selv lavede dette, hvis vi lige gav dig ideerne til det altså.

Det er svært at hjælpe udenvidere.
- hvordan ved du om en node er en mappe? har du gemt et object i dens data property?
- samme med fil?

Når du ved hvordan du kan tjekke om en given node er en mappe eller fil skulle det ikke være noget problem.

Hvis selected = fil så bare delete normal.

Hvis mappe, se om den indeholder subitems af type fil, cancel.
Hvis ikke slet alle under mapper (hvis der er nogle).

Det lyder jo meget nemt...

ja gid det var så nemt.

jeg ved de er mapper, da de jo har en child, indtil det øjeblik childen bliver slettet, og så kan man jo egenlig godt sige det ikke er en mappe mere, og derfor skal den også slettes. en anden ting jeg ved på at det er en mappe, er at den er created med en anden ImageIndex, og det er sådan set også det eneste der skilder filer og mapper ad.

ok send det du har til dkn@pc.dk

tror sku lige jeg fik en hjerneblødning...


var
  I: Integer;
  SelNode, ParentNode: TTreeNode;
begin
  if TreeView1.Selected = nil then Exit;
  SelNode := TreeView1.Selected;
  if SelNode.HasChildren then Exit;

  ParentNode := SelNode.Parent;
  SelNode.Delete;

  if ParentNode.Count = 0 then begin
    repeat
      ShowMessage(ParentNode.Text);
      SelNode := ParentNode;
      ParentNode := SelNode.Parent;
      SelNode.Delete;
    until (ParentNode.Count > 0) or (ParentNode.Level = 0)
  end;

har jeg overset noget? det lader nemlig til at virke

nej den virker heller ik, men denne her gør...

var
  I: Integer;
  SelNode, ParentNode: TTreeNode;
begin
  if TreeView1.Selected = nil then Exit;
  SelNode := TreeView1.Selected;
  if SelNode.HasChildren then Exit;

  ParentNode := SelNode.Parent;
  SelNode.Delete;

  if ParentNode.Count = 0 then begin
    repeat
      if ParentNode.Level = 0 then Exit;
      SelNode := ParentNode;
      ParentNode := SelNode.Parent;
      SelNode.Delete;
    until (ParentNode.Count > 0)
  end;

tillader mig at lukke

det var et svar