also irgentwie klappt das doch noch nicht so ganz... muss nochmal einen schritt zurück gehen: das programm soll alle Unterordner eines vorher vorgegebenen Pfades einer bestimmten Endung anzeigen
Der volgende Quelltext zeigt wie ich es versucht habe, es klappt jedoch nicht (:
Delphi-Quellcode:
procedure TForm1.Suche (ext: Str3; pfad: String);
var sr: TSearchRec;
r: Integer;
begin
r:= FindFirst( pfad + '\*.*', faAnyFile,sr);
while r = 0 do
begin
If Copy(sr.Name, 1, 1) <> '.' then
begin
If (sr.Attr <> 0) and (faDirectory <> 0) then
begin
Suche(ext, Edit2.Text + '\' + sr.Name);
ListBox2.Items.Add(pfad + '\' + sr.Name);
end
else
// If System.Copy (sr.Name, Pos('.' , sr.Name), 4) = '.' + ext then
ListBox1.Items.Add(pfad + '\' + sr.Name);
end;
Application.ProcessMessages;
r:= FindNext(sr);
end;
FindClose(sr);
end;
Edit1 gibt die Dateiendung an (z.B. TXT)
Edit2 den Pfad
ListBox1 soll alle gefundenen Dateien aufführen,
ListBox2 alle durchsuchten/gefundenen ordner
ein Klick auf Button1 startet den Suchvorgang:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled:= False;
ListBox1.Clear;
ListBox2.Clear;
Suche(Edit1.Text, Edit2.text);
Button1.Enabled:= True;
end;
ich hoffe ihr könnt mir helfen, jab schon alles mögliche versucht
thx
gregor