Hallo,
Ich möchte nach bestimmten Dateien Suchen für ein Programm aber das stürzt immer wieder ab nur wieso ?
Ich habe folgende Prozeduren...
Zur Suche:
Delphi-Quellcode:
procedure TForm1.SucheDir(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 (*. und .. in Verzeichznissen ignorieren *)
begin
if (sr.attr<>0) and (faDirectory<>0) then (* Verzeichnis gefunden *)
SucheDir(ext,pfad+'\'+sr.name)
else (* Datei: ist die Erweiterung ok? dann anzeigen *)
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;
Button 1:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(Edit1.Text) > 3 then
begin
ShowMessage('Bitte maximal 3 Zeichen für die Erweiterung eingeben!');
exit;
end;
Button1.Enabled:=false;
ListBox1.Clear;
SucheDir(Edit1.Text,DriveComboBox1.Drive+':');
Button1.Enabled:=true;
end;