Funktion erweitern

[Muellermilchtrinker]

Hallo DP,

ich hab folgende Funktion:

Delphi-Quellcode:

Procedure FülleOrdnerInTreeView(Pfad:String;TreeView:TTreeView;Node:TTreeNode;
                                Dateimaske:String;DateiendungAnzeigen:Boolean);
var Files:TSearchRec; erg:Integer; DateiName:String;
begin
if (Pfad <> '') then //wenn kein Pfad angegeben dann abbrechen
begin
  if Pfad[length(Pfad)] <> '\' then Pfad := Pfad + '\'; //wenn kein '\' dann hinzufügen
  erg := FindFirst(Pfad + Dateimaske, faAnyFile, Files); //erste Datei holen (Ergebnis <> 0 = nix gefunden)
  while erg = 0 do //wenn Datei gefunden weitersuchen
  begin
    Dateiname := Files.Name;
    if DateiendungAnzeigen=False then
    begin
      Delete(Dateiname,Pos('.',Dateiname),Length(Dateimaske));
    end;
    TreeView.Items.AddChild(Node,Dateiname);
    erg := FindNext(Files); //nächste Datei suchen
  while ((Files.Name = '.') or (Files.Name = '..')) and (erg <> 0) do erg := FindNext(Files); //Filtert "." und ".." raus.
  end;
    FindClose(Files); //SearchRec freigeben
    TreeView.Items.Item[0].Expand(True);
end;
end;

ich möchte gerne jetzt, dass die auch die unterordner einfüllt.
Wäre nett, wenn ihr mir helfen könnt.

[Matze]

Baue dir eine der Funktionen aus der Code-Library um. Das ist nicht schwer: FindAllFiles.

Edit: Irgendwie gehen die [cl]-Tags noch nicht richtig.

[Muellermilchtrinker]

Ich steh grad echt aufm Schlauch.

Wie bekomm ich folgendes in mein TreeView:

Code:

--Dateien <--Hauptordner
 +liste 
 +zitate  
 +-testdateien <--unterordner
  +test
  +test1
 +datei <-- unterordner beendet weiter mit hauptordner

und so weiter.
Jemand ne Idee??

[himitsu]

Zitat:

Delphi-Quellcode:

if DateiendungAnzeigen=False then
begin
  Delete(Dateiname,Pos('.',Dateiname),Length(Dateimaske));
end;

=False und vorallem =True sollte man nicht zum Vergleichen verwenden.

Und dann hast du z.B. ein Probleme mit Dateien, welche einen Punkt im Namen haben. (der letzte Punkt zählt als Trennung und nicht er erste, welchen Pos finden würde)

Delphi-Quellcode:

if not DateiendungAnzeigen then
  Dateiname := ChangeFileExt(Dateiname, '');

zu deiner Frage:
- rufe deine Funktion rekursiv auf, bei Unterverzeichnissen
- und gib den Node des übergeordneten TreeNodes mit, welcher dann als Parent für die neuen Nodes verwendet wird.
- beim ersten Aufruf übergibst du den RootNode des TreeView

[Teekeks]

vl. Hilft dir ja das hier:
Das teil durchsucht einen Ordner -Unterordner und legt dementsprechend Nodes an...

EDIT: Das war das falsche...
Hier also das richtige...

Delphi-Quellcode:

procedure TDirectorySearch.scan(path: string; tiefe:integer);
var SR:TSearchRec;
    tmparray:array of string;
    i:integer;
    tn:TTreeNode;
begin
  SetLength(tmparray,0);
  if FindFirst(path+'*', faAnyFile, SR) = 0 then
    begin
       repeat
          if (SR.Attr and faDirectory = faDirectory) and
          not ((SR.Name=',') or (SR.Name='.') or (SR.Name='..')) then
          begin
            with fTreeView.Items.AddChild(fTreeView.Selected,sr.Name+'/') do
            begin
              tn:=fTreeView.Selected;
              Selected:=true;
              scan(path+sr.Name+'/',tiefe+1);
              fTreeView.Selected:=tn;
            end;
          end else
              if not ((SR.Name=',') or (SR.Name='.') or (SR.Name='..') or (SR.Name='.directory')) and
                ((AnsiLowerCase(extractfileext(sr.Name))='.mp3') or
                (AnsiLowerCase(extractfileext(sr.Name))='.ogg') or
                (AnsiLowerCase(extractfileext(sr.Name))='.aac') or
                (AnsiLowerCase(extractfileext(sr.Name))='.wav')) then
              begin
                SetLength(tmparray,Length(tmparray)+1);
                tmparray[High(tmparray)]:=sr.Name;
              end;
        until FindNext(SR) <> 0;
  end;
  if High(tmparray)>=0 then
    for i:=0 to High(tmparray) do
    begin
      fTreeView.Items.AddChild(fTreeView.Selected,tmparray[i]).MakeVisible;
    end;
end;

[himitsu]

@Teekeks:
* nicht das FindClose vergessen
* die For-Schleife brauchst du nicht mit diesem IF absichern (ist da schon eingebaut)
* und mal sehn was du zum Rest sagst

Delphi-Quellcode:

uses StrUtils;

procedure TForm1.scan(path: string);
var SR: TSearchRec;
    tmparray: array of string;
    i: integer;
    s: string;
begin
    SetLength(tmparray,0);
    if FindFirst(path+'*', faAnyFile, SR) = 0 then
    begin
        repeat
            if not AnsiMatchStr(SR.Name, [',', '.', '..']) then
                if SR.Attr and faDirectory = 0 then
                begin
                    if AnsiMatchText(ExtractFileExt(SR.Name), ['.mp3', '.ogg', '.aac', '.wav']) then
                    begin
                        SetLength(tmparray, Length(tmparray) + 1);
                        tmparray[High(tmparray)] := SR.Name;
                    end;
                end
                else
                    scan(path + SR.Name + '/');
         until FindNext(SR) <> 0;
         FindClose(SR);
    end;
    for i := 0 to High(tmparray) do
    begin
      //die Titel in diesem Ordner...
    end;
end;

@Muellermilchtrinker:

Delphi-Quellcode:

procedure TForm1.scan(path: string; parent: TTreeNode = nil);
var SR: TSearchRec;
  s: String;
begin
  SetLength(tmparray,0);
  if FindFirst(path + '*', faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then
          if SR.Attr and faDirectory = 0 then
          begin
            TreeView1.Items.AddChild(parent, SR.Name);
            //s := SR.Name; 
            //if not DateiendungAnzeigen then
            //  s := ChangeFileExt(s, '');
            //TreeView1.Items.AddChild(parent, S);
          end
          else
            scan(path + SR.Name + '/', TreeView1.Items.AddChild(parent, SR.Name));
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

scan('C:\');

[Teekeks]

Zitat von himitsu:

@Teekeks:
* nicht das FindClose vergessen
* die For-Schleife brauchst du nicht mit diesem IF absichern (ist da schon eingebaut)

Ok, FindClose fehlt tatsächlich, aber nehmen wir mal an es gibt einen Ordner der keine Dateien enthält, schon benötigt man das if wieder

Das ganze ist auch aus einem Projekt das ich schon seit gut einem Jahr nicht mehr bearbeite und nutze...