社区
Delphi
帖子详情
请教怎么查找文件
xiaofeixia110
2003-10-15 04:21:59
大家好,我刚才学DELPHI不久。现在我想问问怎么查找硬盘里的某一指定文件
另久我不知如何判断是否目录还是文件。大家帮帮我,谢谢
我看过网上的文章。实现不了。
...全文
71
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...
php txt 分割换行,
请教
怎么按空行来分割txt文件,
请教
怎么按空行来分割txt文件,比如txt文件 a.txt内容如下:啊啊啊啊呃呃呃111111222222嘎嘎嘎嘎嘎嘎嘎里面有空行,怎么按空行把它切割成一段段的字符串呢回复讨论(解决方案)$content = file_get_contents('./a.txt');$rows = explode("\r\n", $content);调用函数file即可.如果是以空行来分割就要找两个换行(\r\n...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章