Forum: Object-Pascal / Delphi-Language
Delphi
by sundance,
15. Dez 2009
Hallo himitsu,
ich habe meine Next-Methode jetzt fertiggebastelt (der Übersichtlichkeit halber habe ich ein paar lokale Variablen zum Zwischenspeicher des Arrayindex und des Dateinamens verwendet); es ist jetzt doch keine reinrassige state-machine geworden.
Zum Start der Suche wird vorausgesetzt, dass dass dyn. Array FSR die Größe 1 hat, FNewLevel = true ist und in FCurrentDir das...
Forum: Object-Pascal / Delphi-Language
Delphi
by sundance,
10. Dez 2009
Hallo himitsu,
vielen Dank nochmal für die "Gedankenstütze"...
Ich bastle gerade selber einen Algorithmus (teste gerade einen Ansatz mit state machine) und hätte da noch eine Frage zu deinem:
Du "konstruierst" jetzt den Datennamen mit der Funktion "Filename" aus den SearchRec.Name-Teilen (anstelle einer zus. Variable im Array) und hast auch die Variable, die den Level der Unterverzeichnisebene...
Forum: Object-Pascal / Delphi-Language
Delphi
by sundance,
8. Dez 2009
Du bist mir zuvorgekommen...
(ich wollte dich gerade nach einem iterativen Beispiel fragen, als ich bemerkt habe, dass das nicht unbedingt trivial ist :thumb:)
Vielen Dank erstmal; ich werde das mal "durcharbeiten"...
.sundance.
Forum: Object-Pascal / Delphi-Language
Delphi
by sundance,
8. Dez 2009
Bei meiner Suche nach einer guten Routine zur rekursiven Dateisuche bin ich über die Suchfunktion hier auf den Vorschlag von SirThornberry gestoßen, der einerseits schnell ist und andererseits auch (durch die Überprüfung mit Like()) die "Fehlfunde" (z.B. gesucht wird '*.fla', gefunden wird von FindFirst/Next auch 'test.flac') beseitigt:
procedure FindAllFiles (FileList: TStrings;
...
