社区
Delphi
帖子详情
请教怎么查找文件
xiaofeixia110
2003-10-15 04:21:59
大家好,我刚才学DELPHI不久。现在我想问问怎么查找硬盘里的某一指定文件
另久我不知如何判断是否目录还是文件。大家帮帮我,谢谢
我看过网上的文章。实现不了。
...全文
85
2
打赏
收藏
请教怎么查找文件
大家好,我刚才学DELPHI不久。现在我想问问怎么查找硬盘里的某一指定文件 另久我不知如何判断是否目录还是文件。大家帮帮我,谢谢 我看过网上的文章。实现不了。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
pankun
2003-10-16
打赏
举报
回复
是查找某一文件是否存在,还是查找文件啊?
下面是查找指定文件的例子.
procedure findall(disk,path: String; var fileresult: Tstrings);
var
fpath: String;
fs: TsearchRec;
begin
fpath:=disk+path+'\*.*';
if findfirst(fpath,faAnyFile,fs)=0 then
begin
if (fs.Name<>'.')and(fs.Name<>'..') then
if (fs.Attr and faDirectory)=faDirectory then
findall(disk,path+'\'+fs.Name,fileresult)
else
fileresult.add(disk+strpas(strupper(pchar(path)))+'\'+strpas(
strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');
while findnext(fs)=0 do
begin
if (fs.Name<>'.')and(fs.Name<>'..') then
if (fs.Attr and faDirectory)=faDirectory then
findall(disk,path+'\'+fs.Name,fileresult)
else
fileresult.add(disk+strpas(strupper(pchar(path)))+'\'+str
pas(strupper(pchar(fs.Name)))+'('+inttostr(fs.Size)+')');
end;
end;
findclose(fs);
end;
procedure DoSearchFile(Path: string; Files: TStrings = nil);
var
Info: TSearchRec;
procedure ProcessAFile(FileName: string);
begin
if Assigned(PnlPanel) then
PnlPanel.Caption := FileName;
Label2.Caption := FileName;
end;
function IsDir: Boolean;
begin
with Info do
Result := (Name <> '.') and (Name <> '..') and ((attr and fadirectory) = fadirectory);
end;
function IsFile: Boolean;
begin
Result := not ((Info.Attr and faDirectory) = faDirectory);
end;
begin
Path := IncludeTrailingBackslash(Path);
try
if FindFirst(Path + '*.*', faAnyFile, Info) = 0 then
if IsFile then
ProcessAFile(Path + Info.Name)
else if IsDir then DoSearchFile(Path + Info.Name);
while FindNext(Info) = 0 do
begin
if IsDir then
DoSearchFile(Path + Info.Name)
else if IsFile then
ProcessAFile(Path + Info.Name);
Application.ProcessMessages;
if QuitFlag then Break;
Sleep(100);
end;
finally
FindClose(Info);
end;
end;
xinglinshu
2003-10-16
打赏
举报
回复
用FileExists(const FileName: string): Boolean;查
websocket连接MQTT服务器所用的js
文件
——mqtt.js和mqtt.min.js
mqtt.js库,下载后可以用找我要源码和压缩
文件
(mqtt.min.js),有问题随时
请教
win7打印机共享和
文件
一键设置
共享需要很多 设置,
请教
别人还不教,网上教程试了还不行,很着急,后来找了这个批处理
文件
,一键搞定,万事无忧,直接上传。
Android Studio 合并module到统一
文件
夹的方法
在同一项目中,引用了多个module,长短不一的命名显得比较乱, 这里想把引入的module放到统一的目录,方便管理 在项目中新建一个
文件
夹 1、先正常导入module到项目中 2、把导入的module拖入到新建好的
文件
夹中 3、打开setting.gradle 在里面映射路径 完成! 下面看下android studio关于同名资源
文件
的合并 最近在开发过程中遇到了一个问题,在调整一个背景drawable
文件
的时候发现修改内容没有生效. 各种
查找
问题之后发现是由于另外一个模块内存在同名资源
文件
.然而import的R
文件
是正确的,为什么会出现资源
文件
引用错误. 经过
请教
同事,
查找
资料最
python通过路径找
文件
_Python寻找路径和
查找
文件
路径的示例
怎么python系统的
查找
路径要是爱你爱的少些,话就可以说的多些了。简?奥斯汀⒈单击开始,在搜索框输入cmd,然后回车,就会出现命令行界面框后,在里面输入命令python后回车,安装成功的话就可以看到python的版本信息。⒉右键单击 计算机,选择属性,之后会再单击高级系统设置,会出现一个系统属性的框。python实现
查找
某个路径下所有的
文件
是否包#coding=utf-8 import os i...
python找不到
文件
数据_python,_Pyhton读取
文件
时为什么找不到
文件
?,python - phpStudy...
Pyhton读取
文件
时为什么找不到
文件
?我想打开一个txt格式的
文件
并且想把每一行都输出出来,但是报错说:找不到
文件
,
请教
是什么问题。注:我看书说要把
文件
放在python所在的
文件
夹下面,这样做了发现并没有什么效果。相关阅读:github的restful API后台是用什么框架实现的?用input做的下拉框jQuery多个按钮的点击事件只对当前按钮有效上学三角函数学的不会,请问这个用PHP怎么算?...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章