Hallo,
ich lese die verzeichnis strucktur ein und zwar so:
damit es nicht ewig dauert wollte ich es stückweise machen.
also habe ich folgenden
D:\Daten
D:\Spiele
D:\Programme
diese verzeichnis werden eingelesen und auch deren unterverzeichnise:
D:\Daten\unterverz.\
D:\Spiele\unterverz.\
D:\Programme\unterverz.\
und das sieht dann auch so ungefähr aus.
ich arbeite mit zwei proceduren:
Delphi-Quellcode:
procedure DirsToTreeView(Dir:String; TV:TTreeview;Item:TTreeNode; addFiles:Boolean; ChildCount:Integer);
var
Sr: TSearchRec;
parent:TTreeNode;
begin
// Damit nicht ständig neugezeichnet wird
dir:=GetDir(dir);
// Suche nur starten wenn es ein erfolgt wahr also es keine fehler geben hat
if findFirst(Dir + '*.*', faDirectory,sr) = 0 then begin
repeat
// Wenn es sich um verzeichnis handelt
if sr.name[1] <> '.' then begin
if ((sr.Attr and faDirectory > 0)) then begin
item:=tv.Items.AddChild(Item,sr.name);
Parent:=item.Parent;
if ChildCount = 0 then begin
ChildCount:=1;
DirsToTreeView(dir+sr.name,tv,item,addfiles,ChildCount);
ChildCount:=0;
end;
item:=parent;
end;
end; // if sr.name
until FindNext(SR) <> 0;
end;
end;
die installsiert die TreeView bzw. befüllt sie mit Verzeichnise aber halt nicht komplet:
die zweite procedure soll jetzt sobalt ich auf ein + zeichen drücke die unterverzeichnis durchsuchen und es dort emebfalls so machen also:
das dort die unterverzeichnise eingelesen werden wie oben gezeigt...
aber halt nicht alle.
Delphi-Quellcode:
procedure DirsToTV(dir:String; tv:TTreeview; item:TTreeNode;count:Integer);
var
i:Integer;
pfad:String;
sr:TSearchRec;
begin
//ShowMEssage(IntToStr(count));
for i:=0 to Item.Count-1 do begin
pfad:= getItemPfad(tv,item.Item[i]); ;
if findFirst(pfad + '\*.*',faDirectory,sr) = 0 then begin
repeat
if sr.name[1] <> '.' then begin
if (sr.Attr and faDirectory > 0) then begin
if item.item[i] <> NIL then begin
tv.Items.AddChild(item.item[i],sr.name);
end;
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
end;
und genau hier ist auch das problem bei AddChild sobalt ich das aufrufe habe ich den stamm zweimal und ich weiß nicht warum auch wenn ich oben die ShowMessage habe die sag es sein 19 einträge obwohl es nur 9 sind ich weiß einfach nicht mehr weiter.
im anahng ist die exe datei.
achaj: ich arbeitet unter "Delphi 2005
PE"