标题: Delphi获取文件夹内所有文件 （没找到Delphi 所以发这里） [打印本页] 作者: a717763229 时间: 2018-8-1 11:47 标题: Delphi获取文件夹内所有文件 （没找到Delphi 所以发这里） 发现关于Delphi的内容很少 随便发一点 （其实是阅读权限太低 发点帖子提升权限）
function Searchfile(path: string): TStringList;
var
SearchRec: TSearchRec;
found: integer;
begin
Result := TStringList.Create;
found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec);
while found = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and
(SearchRec.Attr <> faDirectory) then
Result.Add(SearchRec.Name);
found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end; 作者: wokaopka 时间: 2018-11-1 15:25
不错 FOUND换为listbox 可以读写和当前程序同一文件夹的另一文件里的所有 TXT文件 比如这样
Result := False;
ListBox1.Clear;
Res := FindFirst(Directory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do