|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
Delphi 11 Alexandria
|
Re: Erweiterte Suchfunktion
13. Mai 2007, 16:44
Moin Argonix,
da FindFirstFile nur eine Suchmaske zur Zeit zulässt, wirst Du anhand der gefundenen Dateien selber filtern müssen, welche Du haben willst, und welche nicht.
Beispielsweise könntest Du einen weiteren Parameter deklarieren, der dann die gewünschten Extensions enthält ('.mp3.wav.').
if pos(AnsiLowerCase(ExtractFileExt(...))+'.',AsExtensions) > 0 then ....
Analog gilt das dann auch für die auszuschliessenden Pfade, obwohl sich hier wohl eine StringListe als Parameter anböte.
if AExclude.IndexOf(...) > -1 then ...
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|