Delphi-Quellcode:
FindFilesAndPathes1(
const Path, Mask : TStrings;
const Attributes : integer;
const IncludeSubDir : boolean;
var FoundFilenames : TStrings;
StopSearch : boolean=false;//Möglichkeit des Abbruchs
): integer;
for i:=0 to Path.count-1 do
begin
if StopSearch then
Application.ProcessMessages;
if StopIt then break; //Suche vom Benutzer abgebrochen
Path[i] := IncludeTrailingPathDelimiter(Path[i]);
...
...
...
wenn StopIt eine Globale Variable ist
Achtung: Was ist wenn Path.Count=0 ist
