用Delphi7的文件搜索功能所遇到的不足和解决方法探索

最新推荐文章于 2025-06-14 16:14:56 发布
原创 最新推荐文章于 2025-06-14 16:14:56 发布 · 328 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#算法 #c语言

文章探讨了在处理大量文件搜索时，传统Findfirst和Findnext方法的效率问题。当文件数量达到数万时，搜索速度显著下降。为解决这个问题，提出了两种策略：一是采用多线程技术，二是利用cmd.exe的dir命令将结果输出到文本文件后进行二次搜索。这两种方法旨在优化搜索性能，特别是在处理大规模文件系统时。

         正规的文件搜索方法，是Findfirst,然后用循环Findnext直到末端。此方法在功能上没有问题，处理文件数在1万之内的目录，问题不大，但是如果文件数高达数万以上，速度就很慢，搜索系统的Windows目录（win10），可长达数分钟。

为解决以上问题，可以尝试以下两种方法：

1、可以尝试使用多线程（本人未验证）；
2、可以调用cmd.exe的dir，输出到文本文档，再从中二次搜索。

以上                          

                                                    欢迎交流~

delphi文件搜索控件
11-13
文件搜索控件 TEasyFileSearch v1.02 by Alexandre GAMBIER Read versions.txt file if you want to see modifications made between each version. Thanks ------ Thanks to : - Udo for his tests on C++ Builder 5 and his ideas for v1.01, v1.02 - J.M. Fontaine for his test on Delphi 7 and his orthography help for v1.01. 1 - DESCRIPTION --------------- TEasyFileSearch is freeware and you use it at your own risk. TEasyFileSearch is completely free also for commercial use. TEasyFileSearch is a component which enable you to search file or folder in directory and subdirectory, using filter mask (*.*, *.exe, ...). You define some search criteria : - look in subfolder , - look for readonly file , - look for hidden file , - look for system file , - look for archile file , - look for directory file, - look for anyfile file . You can filter your research - look for files that is smaller or equal to a size, - look for files that is bigger or equal to a size, - look for file than date is between two date, younger, older or the same than a date, - look for created, modified or opened files. You can exclude files using filter mask, for example you can exclude all files *.exe. TEasyFileSearch don't use recursive function (no stack owerflow error). 2 - LANGUAGE/OS --------------- TEasyFileSearch has been tested only on Delphi 5, 7 and C++ Builder 5. 3 - INSTALLATION ---------------- 1. Extract the TEasyFileSearch.zip 2. Choose Component|Install Component... from the menu 3. Select the Tab 'Into New Package' and fill in: At 'Unit file name': Browse and Select EasyFileSearchReg.pas from the directory where you installed it. At 'Package file name': TEasyFileSearch ( In the directory Projects\Lib ) At 'Description': TEasyFileSearch - looking for files Select Ok 4. You will be asked to confirm building the packag
遍历目录查找文件delphi
01-20
遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件遍历目录查找文件
delphi查找文件
weixin_34270606的博客
03-01 300
unit unitFrmMain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ListBox1: TListBox; ...
delphi 搜索文件夹_如何使用Delphi搜索文件和文件夹
cumao2792的博客
09-12 1814
delphi 搜索文件夹 When looking for files, it is often useful and necessary to search through subfolders. Here, see how to use Delphi's strength to create a simple, but powerful, find-all-matching-files pro...
多线程文件搜索专家(delphi源码)
05-13
多线程文件搜索专家是本人在开发某大型工程时编写的一个自编辅助工具，希望对大家有用
delphi script 脚本 TMS Scripter d7-xe10源码
01-05
Delphi Script是一种基于Delphi编译器的脚本语言，主要设计用于在Delphi应用程序中嵌入和执行脚本...如果你是Delphi开发者，尤其是需要在项目中集成脚本功能，那么TMS Scripter及其源码是一个值得探索和利用的资源。
探索Delphi7中Bass.dll音频功能的应用示例
这涉及到进一步的研究和开发，可能需要查看Bass.dll的文档或源代码，了解其功能限制和API调用方法。在Delphi中集成额外的库或开发新的功能模块，通常需要开发者具备相应的编程技巧和对音频处理的深入了解。 #### ...
探索Delphi SQLMemTable1400在D7的内存数据库解决方案
同时，官方提供的在线帮助文档是学习和解决使用过程中遇到问题的重要途径。 5. **兼容性**: 此版本专门用于Delphi 7，所以用户需要确保他们的开发环境与之兼容。 通过上述分析，我们可以得出结论，SQLMemTable 1400...
Delphi7技术大全实例代码与文件解析
4. 实例文件的使用：实例通常以文件的形式存在于光盘中，用户可以将这些文件导入Delphi IDE中，通过观察和修改实例代码来学习Delphi的编程技巧和解决实际开发中遇到的问题。 描述“Delphi7开发技术大全光盘(lx)配套...
探索delphi7国外demo合集的openGL与SFTP示例
以上所述知识点是从标题、描述、标签和文件名中所能提炼出的Delphi7相关的技术要点和建议。通过这些内容，开发者能够更好地理解Delphi7的特点、OpenGL和SFTP技术的应用，以及使用Delphi7进行开发时应注意的事项。
delphi文件搜索源代码
01-28
是开始学习delphi人的一个编程模板！
DELPHI搜索文件的示例
10-31
搜索TXT 文件的示例unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Memo2: TMemo; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; ButtonSearchFile: TButton; FolderPath: TEdit; FileExt: TEdit; ProgressBar1: TProgressBar; procedure ButtonSearchFileClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SearchFile1(FileName: string; FindText: string); function MakeFileList(Path, FileExt: string): TStringList; function FileInUsed(FileName: TFileName): Boolean; public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} { Search Options KeyWord in file FileName FileSize FileCreateTime FileModifyTime keyword filepath openfile found addListbox } var FileNamePathList, FileNameList: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin FileNameList := TStringList.Create; FileNamePathList := TStringList.Create; end; { if FileInUsed ('D:\Administrator\Documents\MyProjects\FileSearch\Win32\Debug\Project1.exe') then ShowMessage('File is in use.') else ShowMessage('File not in use.'); } function TForm1.FileInUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在，返回false HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.SearchFile1(FileName: string; FindText: string); var SearchList: TStringList; begin try SearchList := TStringList.Create; if FileExists(FileName) and (not FileInUsed(FileName)) then begin SearchList.LoadFromFile(FileName); if Boolean(Pos(UpperCase(FindText), UpperCase(SearchList.Text))) then begin FileNameList.Add(ExtractFileName(FileName)); FileNamePathList.Add(FileName); end; end; finally SearchList.Free; end; end; procedure TForm1.ButtonSearchFileClick(Sender: TObject); var I, n: Integer; List: TStringList; begin try ButtonSearchFile.Caption := 'SearchFile'; List := TStringList.Create; List.Clear; FileNameList.Clear; FileNamePathList.Clear; List := MakeFileList(FolderPath.Text, FileExt.Text); ProgressBar1.Max := List.Count; for I := 0 to List.Count - 1 do begin Application.ProcessMessages; SearchFile1(List[I], Edit1.Text); ProgressBar1.Position := I; end; ListBox1.Items.Text := FileNameList.Text; ButtonSearchFile.Caption := IntToStr(FileNamePathList.Count) + ' 条'; finally List.Free; end; end; { 这个过程得显示进度 } function TForm1.MakeFileList(Path, FileExt: string): TStringList; var sch: TSearchrec; begin Result := TStringList.Create; if RightStr(Trim(Path), 1) '\' then Path := Trim(Path) + '\' else Path := Trim(Path); if not DirectoryExists(Path) then begin Result.Clear; Exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt)); end else begin if (UpperCase(ExtractFileExt(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then Result.Add(Path + sch.Name); end; until FindNext(sch) 0; FindClose(sch); end; end; procedure TForm1.ListBox1Click(Sender: TObject); var s: string; txt: string; begin if not FileExists(FileNamePathList[ListBox1.ItemIndex]) then Exit; Memo2.Lines.LoadFromFile(FileNamePathList[ListBox1.ItemIndex]); Caption := FileNamePathList[ListBox1.ItemIndex]; txt := Form1.Memo2.Text; if Boolean(Pos(UpperCase(Edit1.Text), UpperCase(txt))) then begin Memo2.SetFocus; Memo2.SelStart := Pos(UpperCase(Edit1.Text), UpperCase(txt)) - 1; Memo2.SelLength := Length(Edit1.Text); end; end; end.
遍历指定文件夹下所有文件
07-29
递归遍历指定文件夹下所有文件 FindFirstFile
Delphi7中Memo组件实现查找替换功能
06-25
Delphi7中Memo组件实现查找替换功能
Delphi多线程文件搜索工具源码深度解析
最新发布
weixin_31938351的博客
06-14 688
Delphi作为一种成熟的编程语言，为开发者提供了丰富的多线程开发能力。多线程技术让程序能够在执行耗时任务时，不阻塞主线程，从而提高程序的响应速度和执行效率。在Delphi中，多线程技术不仅限于运行时的性能提升，还能通过合理的设计，让软件系统更好地适应复杂的应用场景和多变的工作负载。本章将简要介绍Delphi中的多线程技术，并对后续章节中将深入探讨的主题做概览。
DELPHI如何获取某目录下的所有文件名?
chinajobs的专栏
10-13 4734
//===================================================================== // 函数名称: FindPathFiles // 功能描述: 找指定目录下的文件 // 参    数:  APath   : 路径名称 //            APropty : 属性名称(*.* | *.txt) //          
Delphi7文件操作常用函数一
热门推荐
kimifdw的专栏
02-21 1万+
1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);：给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。 procedure TForm1.Button1Click(Sender: TObject); var text : String;
Delphi下递归查找目录的通用方法
阿文(alvin)的专栏
03-05 2262
最近的项目中用到了Windows下的目录搜索，特整理了一段通用算法如下：//定义搜索到文件时的回调函数//如果是非对象方法，请去掉of object部分//aFile: 搜索到的文件//willStop: 外部变量，用于决定回调操作后，是否终止搜索。TFindFile = procedure(aFile: string; var willStop: boolean) of object;/
评论 1
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值