Ich habe mir dafuer eine Funktion geschrieben:
Code:
function fGetFiles(lDir: String; lMask: String; var lFileList: TStringList): Boolean;
var
lSR: TSearchRec;
begin
Result := false;
if not DirectoryExists(lDir) then
Raise
Exception.Create(lDir + ' not exists!')
else begin
if not Assigned(lFileList) then
Raise
Exception.Create('You have to Assign your Stringlist for "fGetFiles"');
try
if FindFirst(IncludeTrailingPathDelimiter(lDir) + lMask, faAnyFile, lSR) = 0 then
begin
repeat
if (lSR.Attr <> faDirectory) then
begin
Result := true;
lFileList.Add(lSR.Name);
end;
until FindNext(lSR) <> 0;
SysUtils.FindClose(lSR);
end;
finally
end;
end;
end;
Und hier der Aufruf:
Code:
procedure TIrgendwas.DoIt;
var
lStringList: TStringList;
lRun: Integer;
begin
lStringList := TStringList.Create;
try
fGetFiles('C:\...', '*.dproj', lStringlist);
for lRun := 0 to lStringList.Count - 1 do
begin
// Hier kommt dann deine Eintragung in die Stringlist rein, das kriegst du mit sicherheit selber hin ;)
showMessage(lStringList[lRun]); // anstelle von diesem hier
end;
finally
lStringList.Free;
end;
end;
MfG DrTosh