Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
19. Sep 2003
Erstens hat Sakura :gruebel: in der Code Library schon mal nen passenden Code gepostet und zweitens ist ja wohl diese Zeile
UnterordnerDurchsuchen (ext,pfad + '\' + sr.Name); fürs rekursive durchsuchen verantwortlich.
Also änder die in die folgenden Zeilen:
if CheckBox1.Checked then begin
UnterordnerDurchsuchen (ext,pfad + '\' + sr.Name);
end;
Das müßte theoretisch funktionieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
18. Sep 2003
Der Teil der für die Rekursion da ist, ist ja folgender
Suche(ext, Edit2.Text + '\' + sr.Name);
Warum steht da eigentlich Edit2.Text :gruebel: , da muß auch pfad hin! Das hätte so doch garnicht funktionieren können?! Poste mal deinen bisherigen Code!
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
18. Sep 2003
Ganz einfach. Wenn die CheckBox markiert / das Flag entsprechend gesetzt ist, darf man nicht nach Ordnern suchen (<> faDirectory).
Ne einfache If Abfrage sollte wohl jeder hinbekommen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
15. Sep 2003
Dann speicher dir den Pfad doch in irgend einer Variablen! Somit hast du dann wieder der kompletten Dateinamen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Tpercon,
15. Sep 2003
Was steht den in der ListBox drin?