delphi中如何生成一个目录(包括子目录)的文件列表

Posted 2023-04-01

使用delphi如何生成一个目录(包括子目录)的文件列表呢,就象一些播放器那样,指定一个目录,就可以把目录及子目录下所有的音乐文件添加到列表里.

参考技术A function FileList(Path: string; Attr: Integer = FAAnyfile): TStrings;
var
SR: TSearchRec;
begin
Result := TStringList.Create;
if Path[Length(Path)] <> '\' then
Path := Path + '\';
if (Attr and FADirectory) <> FADirectory then
Attr := Attr or FADirectory;
if FindFirst(Path + '*.*', Attr, SR) = 0 then
repeat
if (SR.Attr and FADirectory) = FADirectory then begin
if (SR.Name <> '.') and (SR.Name <> '..') then
Result.AddStrings(FileList(Path + SR.Name));
end
else
Result.Add(Path + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;本回答被提问者采纳 参考技术B 利用递归遍历该目录下的所有子目录文件,
我有原代码,可以加我QQ78513746
利用findfirst,findnext,这样自由空间更大 参考技术C 在控件栏打开 win31 选项，使用文件列表控件：filelistbox,directorylistbox,drivecombobox即可轻松实现

1,Delphi 生成的EXE 文件输出在哪个目录?如何改变?

你写一个简单的delphi程序,比如就在窗体上放一个标签和一个按钮,双击按钮,在代码编辑器的光标所在处,写上一名代码label1.Caption:=\'录制库房物品出库单\';然后按集成开发环境(IDE)菜单上的保存按钮,delphi会跳出保存路径对话框,在这个对话框中,你可以像保存WORD文档一样,选择保存文件的路径直到某个文件夹,第一下保存的是单元文件名,你可以使用默认文件名,也可以写一个不以数字开头的文件名,保存之后,会再次跳出一个保存对话框,这次是保存工程文件名,命名不要与单元文件名同名,也不要用数字打头.两次保存的位置要保持一样(最好),然后按一下DELPHI工具栏上的绿色三角形按钮,如果没有错误,运行窗体 就出现了,你可以按一下上面你放的那个按钮,标签上的字是不是改变了呢?关闭你的程序,到你刚才保存的文件的文件夹,是不是多了很多文件呢?看看文件的扩展名,里面是不是有一个与工程文件名相同的.EXE文件呢?在这些文件只有一个文件是你写过的,这就是.PAS文件,也单元文件,其它文件都是DELPHI自动生成的.你不要管它,也不要删除它.做一个程序最好新键一个文件夹,比如"水费收费软件",所有程序文件都放在这个文件夹内,在电脑中你可以随意的移动这个文件夹,甚至放到U盘上也可以,只要你在DELPHI的打开文件对话框中能找到它(工程文件名).如果要运行你的程序,你可以什么文件都不要,只要那个.EXE文件,把它考下来,用U盘装着,到任何WIN系统的机器上都可运行.当然如果有数据库,那就要保持原有保存路径,连同文件夹一起考到U盘上,这是后话. 参考技术A project菜单 点选项属性 找到director页签 第一栏输入框就是exe或dll
的输出目录。 参考技术B 当前目录,可以配置output 目录