4.4.2查找对话框部件
查找对话框部件为应用程序提供查找对话框, 用户可使用查找对话框在文本文件中查找字符串。
可用Execult方法显示查找对话框,如图4.8。应用程序要查找的字符放到FindText属性中。Options 属性可决定查找对话框中有哪些选项。例如, 用户可选择是否显示匹配检查框。Options的常用选项如表4.2所示。
如果用户在对话框中输入字符并选择FindNext按钮,对话框将发生OnFind事件。
表4.2 查找对话框的Options属性的取值及含义
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
取值 含义
───────────────────────────────────────
frDown 如果是真值,对话框中出现Down按钮,查找方向向下。如果是假
值,Up按钮将被选中,查找方向向上,frDown 值可在设计或运行
时设置。
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/delphi/)frDisableUpDown 如果是真值,Up和Down按钮将变灰,用户不能进行选取;如果是
假值,用户可以选择其中之一。
frFindNext 如果是真值,应用程序查找在FindNext属性中的字符串。
frMatchCase 如果是真值,匹配检查框被选中。设计、运行时均可设置。
frWholeWord 如果是真值,整字匹配检查框被选中,设计、运行时均可设置。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
在OnFind事件中可使用Options属性来决定以何种方式查找。Find方法响应查找对话框的OnFind事件。
procedure TEditform.Find(Sender: TObject);
begin
with Sender as TFindDialog do
if not SearchMemo(Memo1, FindText, Options) then
ShowMessage('Cannot find "' + FindText + '".');
end;
其中SearchMemo函数是Search单元中定义的,SearchMemo可在TEdit,TMemo,以及其它TCustomEdit派生类中查找指定的字符串。查找从控件的脱字号(^) 开始, 查找方式由Options决定。如果向后查找从控件的StlStart处开始,如果向前查找则从控件的SelEnd处查找。
如果在控件中找到相匹配的字符串,则字符串被选中,函数返回真值。如无匹配的字符串,函数返回假值。
特别注意的是TEdit,TMemo中有一个HideSeletion属性,它决定当焦点从该控制转移至其它控制时,被选中的字符是否保持被选中的状态。如果是真值,则只有获得焦点才能保持被选中状态。查找时,焦点在查找对话框上,因此要想了解查找情况,必须将HideSeletion设成假值。控制的缺省值为真值。
SearchMemo代码如下:
unit Search;
interface
uses WinProcs, SysUtils, StdCtrls, Dialogs;
const
WordDelimiters: set of Char = [#0..#255] - ['a'..'z','A'..'Z','1'..'9','0'];
function SearchMemo(Memo: TCustomEdit;
const SearchString: String;
Options: TFindOptions): Boolean;
function SearchBuf(Buf: PChar; BufLen: Integer;
SelStart, SelLength: Integer;
SearchString: String;
Options: TFindOptions): PChar;
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/delphi/)implementation
function SearchMemo(Memo: TCustomEdit;
const SearchString: String;
Options: TFindOptions): Boolean;
var
Buffer,