Forum: Programmieren allgemein
by DeddyH,
16. Mär 2012
Dann musst Du rekursiv suchen. Du hast doch meinen Quelltext, und in der Code-Library gibt es auch genügend Beispiele.
Forum: Programmieren allgemein
by DeddyH,
16. Mär 2012
FindFirst(Pfad + 'Test*', faDirectory, SearchRec)
Sollte Verzeichnisse finden, deren Name mit Test beginnt.
Forum: Programmieren allgemein
by DeddyH,
16. Mär 2012
Redest Du jetzt von der Komponente? Wie sind die "bestimmten Ordner" denn definiert?
Forum: Programmieren allgemein
by DeddyH,
15. Mär 2012
Du irrst nicht. In dem Falle ist das aber auch gar nicht nötig. Übrigens sollte man auch in individuellen Projekten immer mögliche Fehlerquellen ausschließen, das hat mit privatem Gebrauch oder dergleichen nichts zu tun. Ich denke da an einen Satz, den ich von einem Entwickler einmal gehört habe "Das ist kein Bug, es tritt ja nur in ganz speziellen Situationen auf.". Was soll man dazu noch sagen?
Forum: Programmieren allgemein
by DeddyH,
15. Mär 2012
Brauche ich nicht, das erledigt IncludeTrailingPathDelimiter von ganz alleine ;). Und ich habe ja gar nicht gegiftet, sondern nur darauf hingewiesen, dass da potentielle Fehlerquellen im Code stecken. Wenn Popov da gleich ausrastet, ist das sein Problem.
Forum: Programmieren allgemein
by DeddyH,
15. Mär 2012
procedure GetFileList(Path, Ext: String; List: TStrings);
const
Attrib = faArchive or faReadOnly or faHidden;
var
Search: TSearchRec;
begin
Assert(Assigned(List));
Path := IncludeTrailingPathDelimiter(Path);
//Delphi vor der Kylix-Ära:
//Path := IncludeTrailingBackslash(Path);
Forum: Programmieren allgemein
by DeddyH,
15. Mär 2012
Soll heißen: wenn Du ein Beispiel liest, das suboptimal programmiert ist, übernimmst Du es, weil es ja von Borland/Inprise/CodeGear/Embarcadero stammt? Interessante Einstellung.
Forum: Programmieren allgemein
by DeddyH,
15. Mär 2012
Ganz so einfach ist es wohl nicht, Rekursion fehlt z.B., man addiert keine Bitmasken, Du prüfst nicht auf Länge 0 usw.
Forum: Programmieren allgemein
by DeddyH,
15. Mär 2012
FindFirst, FindNext sind Dein Freund. Oder Du installierst Dir meine Komponente TFileSearcher, dann musst Du das nicht selber erledigen.