[教学] Delphi IDE 文件搜寻功能

最新推荐文章于 2022-03-10 14:57:45 发布
最新推荐文章于 2022-03-10 14:57:45 发布
阅读量244 收藏
点赞数
原文链接：http://www.cnblogs.com/onechen/p/6485045.html
版权

Delphi IDE 提供了一个方便的文件搜寻功能，操作如下：

点 Search 选单内的 Find in Files...

 

例如我们想搜寻 JFile 需要引用那一个源码，可输入如下：

  • 输入关键字：JFile = (加上等号，主要是缩小搜寻范围)
  • 搜寻目录请输入目前 Delphi 版本的源码目录（如：C:\Program Files (x86)\Embarcadero\Studio\18.0\source）

 

按 Ok 开始搜寻，只找到一个文件包含 "JFile ="，点二下可以开启：

 

转载于:https://www.cnblogs.com/onechen/p/6485045.html

weixin_30718391
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
delphi 搜索文件夹_如何使用Delphi搜索文件和文件夹
cumao2792的博客
09-12 1590
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搜索文件的示例
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.
delphi7函数查找工具
02-18
收集了delphi7常用的大部分函数及一些API函数.
Delphi 全盘搜索 代码
10-09
Delphi 全盘搜索 代码
Delphi6 IDE 一些配置说明
倾听内心的声音
08-25 590
1.project->options->directory/conditionals  中output directory 可配置dll输出路径
ModelMaker Code Explorer 15.0.13.2378 （Delphi 代码增强工具）
04-01
获奖的重构浏览器，支持Delphi Pascal。 与Delphi10–10.3RIO集成（在V13之前支持以前的版本）。 使用内置重构改进现有代码的设计 即时双向导航。 点击，拖放编程。 智能替换™ 在代码中传播重命名。 创建和...
delphi EhLib 9.5.012 Full Source 专业版 .rar
06-17
您还可以按照以下说明在库IDE中手动安装文件 第2章安装库 安装后，请确保所有已安装组件的可操作性。 为此，请打开IDE，编译并启动一个主要的演示项目。 。\ Demos \ MainDemo \ Project1_XE2.dpr 阅读下一个...
4个delphi压缩包分割控件大全下载后合并为一个压缩包即可
11-26
　打开 Rx 的运行包 RXCTL5.DPK，在 Package 窗口中按 Compile 按钮编译 RXCTL5.DPK ，然后用同样方法编译另两个运行包RXDB5.DPK 和 RXBDE5.DPK ，将编译后的三个 BPL 文件放到搜索路径中，如 WINDOWS\SYSTEM等。...
Delphi5开发人员指南
07-18
1.4 Delphi 5的IDE 7 1.4.1 主窗口 8 1.4.2 窗体设计器 9 1.4.3 Object Inspector 9 1.4.4 代码编辑器 9 1.4.5 代码浏览器 10 1.4.6 源代码生成器 10 1.5 创建一个简单的应用程序 11 1.6 事件机制的优势在哪里 12 ...
FASTMM v4.27 (提高IDE以及Delphi应用程序速度)
01-13
意思是您只需要把FastMM4.pas加入到你的项目中，但要保证dpr文件uses后面第一个文件就是FastMM4.pas即可，经过本人实验，实际使用中还要加FastMM4Messages.pas或者设置一个搜索路径（设路径比较麻烦，还是加进来吧...
IDE 专家包 V0.6.7 (DELPHI辅助工具)
01-13
2003.11.26 V0.6.7 + [多语言版] 新增多语言支持，现支持简体、繁体中文及英文。 # [IDE 扩展] 新增 Object Inspector 扩展专家，实现非默认值属性粗体显示功能（暂时只支持 D5/BCB5）。 + [MSDN 专家] 增加对 MSDN.NET 的支持及新增工具栏。 + [辅助功能] 增加专家引导工具，可以在启动 IDE 时按下左 Shift 键来启动该工具，用于临时禁用/启动专家。 * [辅助功能] 增加带帮助的窗体用 F1 调出帮助的功能。 * [删除注释专家] 增加处理项目源文件的选项。 * [工程扩展专家] 修正窗体列表及单元列表导致编辑器失去光标的问题，以及其它的改进。 * [属性编辑器] 修正字符串属性编辑器全部替换可能死循环的错误及部分功能改进。 * [IDE 扩展] 修正按 F12 显示窗体时焦点在浮动面板上的问题。 * [IDE 扩展] 修正浮动面板导致 IDE 中其它窗体 Stay On Top 无效的问题。 * [IDE 扩展] 修正 Close All 可能导致异常的问题。 * [IDE 扩展] 修正当浮动工具条显示时 IDE Edit 中大部分菜单不可使用问题。 * [IDE 扩展] 修正组件面板扩展导致面板不接受鼠标滚轮事件的错误。 * [代码编辑器专家] 修正多个 IDE 同时退出时提示保存冲突的问题。 * [代码编辑器专家] 修正加入过程头时，对 Class methods 处理错误的问题。 * [源代码统计专家] 修正清空统计结果不完全的小错误。 * [属性修改器] 修正由于删除已经修改的控件，引起双击定位到该控件时触发异常的错误。 * [窗体设计专家] 修正不可视组件排列有时不能过滤掉 TField 等不可见组件的问题。 * [辅助功能] 修正部分对话框不能用 ESC 关闭的问题。 * [其它] 修正其它一些已发现的错误及部分专家的功能改进。 ^ [开发计划] 另有资源管理专家、代码编辑器扩展、Explorer 专家、收藏夹专家、MMC 框架向导、DUnit 框架向导等正在开发中。
为什么继续选择DELPHI(即将逝去的Delphi前景在何方)
08-28
已经钻DELPHI很深了，当然现在DELPHI是过了最辉煌的时代。但为什么要继续下去，而不转向其它的?这是不是死脑筋
Delphi开发技巧之－IDE
02-04
一些有用的编辑命令 使用Delphi检查自定义类型 使用命令行参数启动Delphi 在 Windows XP 中调试DLL 在IDE中使用另外一个查找工具 在窗体上放置多个相同控件的简便方法 在设计时选择看不见的上级控件 当编译设计时自动隐藏IDE窗口 恢复IDE工具栏 改变Delphi默认工程目录 清除Delphi的最近工程列表 程序管理 Delphi's Tool list 自动创建 implementation 说明 自动插入GUID 记录和播放按键 设置选定的代码为 大写小写 转换 dfm 文件到文本 隐藏IDE内属性
【DELPHI 10.4】版本代码输入不提示问题解决
03-10 1786
最近安装了DELPHI10.4的版本在试用，安装完成后是各种问题扑面而来，本章主要介绍代码不提示的问题是如何解决的。 安装了DELPHI10.4以后，我单独还安装了CNPACK，但刚开始还好，后面无缘无故出现了代码不提示的问题，以下是解决的步聚： 1.打开软件菜单【TOOL】，选择【Options】 2.在弹出的窗体中选择【User Interface】–【Editor】—【Source】，然后就右边的菜单中，选择红框内的Code Insight，把下拉菜单的内容选择成为：Delphi（Classic C
Delphi——FindFirst学习
期待下集是个可爱梦儿
04-09 1426
<br />Delphi——FindFirst学习<br />FindFirst在SysUtils中声明 原型为<br />Fucntion FindFirst(const Path:String;Attr:Integer;Var F:TSearchRec):Integer;<br />描述:<br />从指定的目录中搜索第一个给定属性文件实例<br />返回结果保存到参数F中,F参数是一个文件结构包含文件信息<br />成功返回0，否则返回错误代码<br />参数Path:包含路径和搜索模糊文件名，包括通
在SynEdit 中实现查找和替换功能
专栏
03-05 2581
在C++ Builder中使用 SynEdit 插件时，功能的确强大，但是常用的  查找和替换功能却不好作了，尤其没有接触过的人，太麻烦了。其实 SynEdit 自带了搜索功能，很简单，很强大！1. 准备工作：    (1)在你设置好的界面中加入 SynEdit 控件，我的命名是 rve,当然，这是个误会，我是怕改多了程序麻烦.    (2) 加入SynEditSearch控件， 我的命名是Syn
Delphi 版 everything、光速搜索代码
dbyoung的Delphi专栏
04-23 3463
近日没啥事情，研究了一下 everything、光速搜索原理。花了一个礼拜时间，终于搞定。废话不多说，直接上代码：unit uMFTSearchFile; { dbyoung@sina.com 2018-04-23 } interface uses Windows, System.Classes, Generics.Collections; { 获取磁盘所有文件列表 } functi...
Delphi的IDE中最常用到的快捷键(不完全版)
KeepTrace的专栏
04-18 1273
个人习惯.以频繁程序降序排列1. F12 窗口与代码编辑器的切换2. F11 显示Object Inspector3. Ctrl+上下箭头 在过程声明和实现间切换4. Ctrl+Shift+C 按当前过程声明自动生成实现头5. Ctrl+Shift+U 选中代码左偏移6. Ctrl+Shift+I 选中代码右偏移7. Ctrl+Backspace 删除一个单词8. Ctrl+Alt+鼠标选取 以列
delphi7.0安装文件及补丁
最新发布
07-07
首先，您可以在互联网上搜索Delphi 7.0的安装文件。通常，您可以在软件供应商的官方网站或其他可靠的下载网站上找到它。确保从可信赖的来源下载安装文件，以确保安全性和合法性。 一旦您获得了Delphi 7.0的安装文件...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值