Funktion erweitern

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

[Muellermilchtrinker]

Also meine aktuelle Routine sieht so aus:

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
  path := IncludeTrailingPathDelimiter(path);
  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;

Und so rufe ich auf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
scan(Edit1.Text,TreeView1.Items.Item[0],'*.txt',false);
end;

Ich hab einfach mal ein Testprojekt gemacht, indem ich ein Editfeld (für den Pfad), ein Button und das TreeView hab. Ich klick auf den Button und dann liest der den Ordner vom Editfeld in das TreeView ein.

[DeddyH]

Und dabei wird die Maske ignoriert, sobald die erste Rekursion ins Spiel kommt? Passiert das auch, wenn Du den Defaultwert einmal entfernst?