1.遍歷所有文件夾。

program getfiles; uses Classes,sysutils; var sPath:string;L:TStringList; procedure getdir(path:string; var List:TStringList);//函數(shù)的具體描述 varSR:TSearchRec;i:smallint; beginList.Add(Utf8ToAnsi(path));i:=0;while i<List.Count dobeginif FindFirst(List[i] + '\*', faAnyFile, SR) = 0 thenbeginrepeatif (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr=faDirectory) thenList.Add(List[i]+'\'+SR.Name);until FindNext(SR) <> 0;FindClose(SR);end;inc(i);end; end; beginsPath:='D:\MyDrivers';L:=TStringList.Create;getdir(sPath,L);Writeln(L.Text);readln; end.

2.遍歷文件。

program Project1; uses Classes,sysutils; var sPath:string;FL:TStringList; procedure getdir(path:string; var FileList:TStringList);//函數(shù)的具體描述 varSR:TSearchRec;i:smallint;List:TStringList; beginList:=TStringList.Create;List.Add(Utf8ToAnsi(path));i:=0;while i<List.Count dobeginif FindFirst(List[i] + '\*', faAnyFile, SR) = 0 thenbeginrepeatif (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr=faDirectory) thenList.Add(List[i]+'\'+SR.Name)elseif (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr=faArchive) thenFileList.Add(List[i]+'\'+SR.Name);until FindNext(SR) <> 0;FindClose(SR);end;inc(i);end; end; beginsPath:='E:\迅雷下載\SQLCipher_v4.3.0（解壓密碼：123456）';FL:=TStringList.Create;getdir(sPath,FL);Writeln(FL.Text);readln; end.

?

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。