遍歷所有文件夾，并且保持到TStringList中

function getFileTree(const filepath:string):TStringlist;

var
? sr:TSearchrec;
? fileName:string;
? I:integer;
begin
?? result:=TStringlist.Create;
?? if Findfirst(filepath+'\*',faanyfile,sr)=0 then
?? begin
???? repeat
??????? if (sr.Name = '.') or (sr.Name='..') then continue;
??????? if sr.Attr = fadirectory then
??????? begin
????????? result.Add(sr.Name);
????????? result.AddStrings(getFileTree(filepath+'\'+sr.Name)) ;
??????? end

??????? else
????????? result.Add(sr.Name);
???? until findnext(sr) <>0;
???? findclose(sr);
?? end;
end;

總結

以上是生活随笔為你收集整理的delphi 遍历所有文件夹的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。