我想知道在指定目录下,文件名含关键字"M64"的文件是否存在,并且获取这个文件名
解决方案 »
- DELPHI高手进来下
- Chart能不能自上向下来连线的?
- 请问哪位达人有dbtreeview组件?
- DBGird 显示不出数据<急救>
- 如何用delphi加密并压缩ACCESS数据库?
- 要实现这个功能:运行程序时,现在判断这个程序是否已经运行,是:就显示那个程序的窗口为当前窗口,没有就继续运行。
- 有关pagecontrol的changing事件问题?
- 二进制文件问题,很简单的
- 十万火急求教以下问题,谢谢!!
- 想用idhttp做dz6灌水,但怎么总是提示你的连接来路不明或验证串不正确。
- ◆大家一般用什么牌子的短信猫◆
- 有个代码在Delphi7.0上编译出来正常用Delphi2010编译出来后却出错了
就搞定了
// 得到StrDir目录下的子目录以DirList返回
procedure FindFileUnder(strDir, ExtName: string; var FileList: TStringList);
// 得到StrDir目录下的所有以ExtFile('.pas')为扩展名的文件 以FileList返回
procedure FindDirUnder(strDir: string; IncludeSelf: boolean; var DirList: TStringList);
var
SRec: TSearchRec;
retval: Integer;
begin
DirList.Clear;
retval := FindFirst(strDir+'\*.*',faDirectory,sRec);
try
while retval = 0 do
begin
if (SRec.Attr and faDirectory) <> 0 then
if (Srec.Name = '.') or (Srec.Name = '..') then
begin
if IncludeSelf then
DirList.Add(Srec.Name)
end else
DirList.Add(Srec.Name);
retval := FindNext(SRec);
end;
finally
FindClose(SRec);
end;
end;
procedure FindFileUnder(strDir,ExtName:string;var FileList:TStringList);
var
SRec: TSearchRec;
retval: Integer;
begin
FileList.Clear;
retval := FindFirst(strDir+'\'+ExtName,faAnyFile,sRec);
try
while retval = 0 do
begin
if (SRec.Attr and faDirectory) = 0 then
FileList.Add(Srec.Name);
retval := FindNext(SRec);
end;
finally
FindClose(SRec);
end;
end;