|
|  |
Delphi
Alle Dateien aus einem Verteichniss einlesen:
procedure TMainForm.GetAllFiles(Mask:String;Rekursiv:Boolean);
var
Search : TSearchRec;
Verz : String;
Such : String;
begin
Such:=ExtractFileName(mask);
Verz:=ExtractFilePath(mask);
if Verz[Length(Verz)]<>'\' then Verz:=Verz+'\';
{alle Dateien}
if FindFirst(Mask,$23,Search)=0 then
repeat
if Pos('*.ini',Mask)<>0 then
begin
if Copy(Search.Name,1,2)<>'++'
then FFileList.Add(Verz+Search.Name);
end else FFileList.Add(Verz+Search.Name);
until FindNext(Search)<>0;
FindClose(Search);
if Rekursiv then
begin
{Unterverzeichnisse}
if FindFirst(Verz+'*.*',FaDirectory,Search)=0 then
repeat
if ((Search.Attr and FaDirectory)=Fadirectory)and
(Search.Name[1]<>'.') then GetAllFiles(Verz+Search.Name+'\'+Such,True);
until FindNext(Search)<>0;
FindClose(Search);
end;
end;
|
