delphi 得到文件夹下所有文件名

本文整理自网络，侵删。

 procedure TForm1.Button1Click(Sender: TObject);
var
ss:Tsearchrec;
filepath:string;
begin
filepath:=Edit1.Text;
listbox1.Items.Clear;
if findfirst(filepath+'*.*',faAnyFile,ss)=0 then
begin
if not ((ss.Attr and fadirectory)=fadirectory) then
listbox1.Items.Add(ss.Name);
while findnext(ss)=0 do
begin
if not ((ss.attr and fadirectory)=fadirectory) then
listbox1.Items.Add(ss.Name);
end;
findclose(ss);
end;

end;
  

相关阅读 >>

Delphi 图像灰度化处理

Delphi正则表达式匹配中文

Delphi 将dbgrid的数据导出到excel文件保存

Delphi urldownloadtofile 支持进度条

Delphi 如何判断clipboard剪切板中的内容的类型

Delphi hexstrtobytes

Delphi多级指针

Delphi 2009 之 tbuttonededit

Delphi 变体数组

Delphi 内存管理[3]

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 得到文件夹下所有文件名