Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
18. Jan 2008
Hi,
Das Problem scheint gelöst. :spin2:
Hab den Code ein bisschen umgestellt und frage jetzt nur noch FCancelled ab, bei dem rekursiven Aufruf.
Wenn der Benutzer Abbrechen drückt, wird noch der aktuelle Ordner fertig durchsucht und dann die Prozedur beendet.
procedure TForm_Main.FindAllFiles(RootFolder: String; Mask: String = '*.*'; Recurse: Boolean = true);
var
wfd :...
Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
18. Jan 2008
Hi,
ich hab die Prozedur FindAllFiles von Matze aus der Code-Library.
Die Prozedur hat soweit immer funktioniert.
zu 2.) da vermute ich mal, das liegt daran, dass cFileName von eine Typ Array of Char oder so ist (so sieht es jedenfalls beim debuggen aus). Ist, wie gesagt aus der Code-Library.
zu 3.)
hier:
Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
18. Jan 2008
Danke euch beiden.
Jetzt werden allerdings nur die Dateien des ersten Unterordners aufgelistet und die anderen Unterordner werden gar nicht mehr durchlaufen. Vorher hat er auch nur Dateien des ersten Unterordners aufgelistet, dafür das dann wiederholt (was ja auch falsch war).
Irgendwo hab ich doch noch die Variable FFinished falsch belegt? :gruebel:
Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
18. Jan 2008
Ich muss hier doch noch mal eine Post aufmachen.
Mit der Rekursion und dem setzen des Bool'schen Parameters, das bekomme ich noch nicht so ganz hin. :wiejetzt:
procedure TForm_Main.TransferToDB(Sender : TObject);
begin
FFinished := False;
FindAllFiles(FOrdner, '*.' + FTyp, FRekursion);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
17. Jan 2008
Stimmt, daran habe ich gar nicht gedacht. Vielen Dank.
MFG
Lorenz
Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
17. Jan 2008
Ja.
Nur wie mache ich das, wie kann ich es abfragen, wenn er keine Datei mehr gefunden hat?
Forum: Sonstige Fragen zu Delphi
Delphi
by Reinhardtinho,
17. Jan 2008
Hallo zusammen,
ich benutze diese Prozedur FindAllFiles, um die Dateien in einem Ordner rekursiv zu finden.
Ich habe in meinem Programm ein zusätzliches Form, das anzeigt, dass gesucht wird und einen Abbrechen-Button. Wenn dieser gedrückt wird, soll die Suche abgebrochen werden. Das ganze habe ich über Events gesteuert.
Jetzt meine Frage:
Wie kann ich in der Prozedur FindAllFiles...