Funktion erweitern

[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...

[xZise]

Zitat von 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 […]

Nein Himitsu hat recht. Wenn wir die folgende For-Schleife haben:

Delphi-Quellcode:

for i := a to b do
  c();

Dann wird der Befehl c genau Max(b - a + 1, 0)× ausgeführt Wenn also keine Dateien existieren, dann ist High(<empty array>) = -1 und damit ist -1 - 1 + 1 = -1 < 0 → es wird 0× ausgeführt.

Man könnte es auch so ausdrücken:

Delphi-Quellcode:

i := a;
while i ≤ b do
begin
  c();
  Inc(i);
end;

Du siehst also, wenn a > b, dann wird die Schleife nie durchlaufen.

MfG
Fabian

PS: @Himi: Wozu zwei Proceduren?

[Muellermilchtrinker]

Die letzte Procedur von Himitsu funktioniert. Aber ich hab folgendes Problem. Hab die jetzt so abgeändert, aber bei den Unterordnern funktioniert der Filter nicht :

Delphi-Quellcode:

procedure TForm1.scan(path: string; parent: TTreeNode = nil;Maske:String='*.*';DateiendungAnzeigen:Boolean=true);
var SR: TSearchRec;
  s:string;
  tmparray: array of  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),Maske,DateiendungAnzeigen);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

[DeddyH]

Wenn path sowieso nicht als konstanter Parameter deklariert ist, kannst Du ihn ja innerhalb der Routine ändern, also ggf. den Backslash anhängen. Nimm also als erste Zeile mal
path := IncludeTrailingPathDelimiter(path); rein und mach vor allem den Slash beim rekursiven Aufruf raus.

[Muellermilchtrinker]

Funktioniert leider immer noch nicht.
Die Maske funktioniert immer noch nicht bei den Unterordnern.
Und wenn wir grad dabei sind: Hat jemand eine Idee wie ich den Pfad rausbekomm, wenn ich auf eine Datei vom Unterordner klick??? Hab das immer so gemacht:
Dateipfad := Hauptpfad + TreeView1.Selected.Text Weiß jemand wie ich das dann hier bekomm mit den Unterordnern???

[DeddyH]

Dann zeig uns doch einmal die aktuelle Routine sowie den Aufruf, vielleicht sieht man da etwas.