?? 013.htm
字號:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基礎教程-->第四章 文本編輯器的設計（二）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基礎教程 第四章 文本編輯器的設計（二）">
<META NAME="description" CONTENT=" - DELPHI基礎教程 - 第四章 文本編輯器的設計（二）">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋體"}
.tt2 {font: 12pt/15pt "宋體"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 background="bg.gif" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%" background="bg.gif"><strong><A HREF="014.htm" ><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="012.htm" ><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>
<A HREF="index.html" ><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
<TD class="tt2" background="bg.gif" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷體_GB2312">第四章 文本編輯器的設計（二）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
</font><p>4.4.2<font face="宋體" lang="ZH-CN">查找對話框部件 </p>
<p> 查找對話框部件為應用程序提供查找對話框，</font> <font
face="宋體" lang="ZH-CN">用戶可使用查找對話框在文本文件中查找字符串。</p>
<p> 可用</font>Execult<font face="宋體" lang="ZH-CN">方法顯示查找對話框，如圖</font>4.8<font
face="宋體" lang="ZH-CN">。應用程序要查找的字符放到</font>FindText<font
face="宋體" lang="ZH-CN">屬性中。</font>Options <font face="宋體" lang="ZH-CN">屬性可決定查找對話框中有哪些選項。例如，</font>
<font face="宋體" lang="ZH-CN">用戶可選擇是否顯示匹配檢查框。</font>Options<font
face="宋體" lang="ZH-CN">的常用選項如表</font>4.2<font face="宋體" lang="ZH-CN">所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>如果用戶在對話框中輸入字符并選擇</font>FindNext<font
face="宋體" lang="ZH-CN">按鈕，對話框將發生</font>OnFind<font face="宋體"
lang="ZH-CN">事件。 </p>
</font><p><font face="宋體" lang="ZH-CN">表</font>4.2 <font face="宋體" lang="ZH-CN">查找對話框的</font>Options<font
face="宋體" lang="ZH-CN">屬性的取值及含義</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</font></p>
<p><font face="宋體" lang="ZH-CN">取值 </font> <font
face="宋體" lang="ZH-CN">含義</font></p>
<p><font face="宋體" lang="ZH-CN">───────────────────────────────────────</font></p>
<p>frDown <font face="宋體" lang="ZH-CN">如果是真值，對話框中出現</font>Down<font
face="宋體" lang="ZH-CN">按鈕，查找方向向下。如果是假</font></p>
<p><font face="宋體" lang="ZH-CN">值，</font>Up<font face="宋體" lang="ZH-CN">按鈕將被選中，查找方向向上，</font>frDown
<font face="宋體" lang="ZH-CN">值可在設計或運行</font></p>
<p><font face="宋體" lang="ZH-CN">時設置。</font></p>
<p>frDisableUpDown <font face="宋體" lang="ZH-CN">如果是真值，</font>Up<font
face="宋體" lang="ZH-CN">和</font>Down<font face="宋體" lang="ZH-CN">按鈕將變灰，用戶不能進行選取；如果是</font></p>
<p><font face="宋體" lang="ZH-CN">假值，用戶可以選擇其中之一。</font></p>
<p>frFindNext <font face="宋體" lang="ZH-CN">如果是真值，應用程序查找在</font>FindNext<font
face="宋體" lang="ZH-CN">屬性中的字符串。</font></p>
<p>frMatchCase <font face="宋體" lang="ZH-CN">如果是真值，匹配檢查框被選中。設計、運行時均可設置。</font></p>
<p>frWholeWord <font face="宋體" lang="ZH-CN">如果是真值，整字匹配檢查框被選中，設計、運行時均可設置。</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ </p>
<p> 在</font>OnFind<font face="宋體" lang="ZH-CN">事件中可使用</font>Options<font
face="宋體" lang="ZH-CN">屬性來決定以何種方式查找。</font>Find<font
face="宋體" lang="ZH-CN">方法響應查找對話框的</font>OnFind<font face="宋體"
lang="ZH-CN">事件。 </p>
<p> </font> procedure TEditform.Find(Sender: TObject);</p>
<p>begin</p>
<p>with Sender as TFindDialog do</p>
<p>if not SearchMemo(Memo1, FindText, Options) then</p>
<p>ShowMessage('Cannot find "' + FindText + '".');</p>
<p>end;</p>
<p><font face="宋體" lang="ZH-CN">
其中</font>SearchMemo<font
face="宋體" lang="ZH-CN">函數是</font>Search<font face="宋體" lang="ZH-CN">單元中定義的，</font>SearchMemo<font
face="宋體" lang="ZH-CN">可在</font>TEdit,TMemo<font face="宋體" lang="ZH-CN">，以及其它</font>TCustomEdit<font
face="宋體" lang="ZH-CN">派生類中查找指定的字符串。查找從控件的脫字號</font>(^)<font
face="宋體" lang="ZH-CN">開始，</font> <font face="宋體" lang="ZH-CN">查找方式由</font>Options<font
face="宋體" lang="ZH-CN">決定。如果向后查找從控件的</font>StlStart<font
face="宋體" lang="ZH-CN">處開始，如果向前查找則從控件的</font>SelEnd<font
face="宋體" lang="ZH-CN">處查找。</p>
<p> 如果在控件中找到相匹配的字符串，則字符串被選中，函數返回真值。如無匹配的字符串，函數返回假值。</p>
<p> 特別注意的是</font>TEdit,TMemo<font face="宋體" lang="ZH-CN">中有一個</font>HideSeletion<font
face="宋體" lang="ZH-CN">屬性，它決定當焦點從該控制轉移至其它控制時，被選中的字符是否保持被選中的狀態。如果是真值，則只有獲得焦點才能保持被選中狀態。查找時，焦點在查找對話框上，因此要想了解查找情況，必須將</font>HideSeletion<font
face="宋體" lang="ZH-CN">設成假值。控制的缺省值為真值。</p>
<p> </font>SearchMemo<font face="宋體" lang="ZH-CN">代碼如下： </p>
</font><p>unit Search;</p>
<p>interface</p>
<p>uses WinProcs, SysUtils, StdCtrls, Dialogs;</p>
<p>const</p>
<p>WordDelimiters: set of Char = [#0..#255] - ['a'..'z','A'..'Z','1'..'9','0']; </p>
<p>function SearchMemo(Memo: TCustomEdit;</p>
<p>const SearchString: String;</p>
<p>Options: TFindOptions): Boolean; </p>
<p>function SearchBuf(Buf: PChar; BufLen: Integer;</p>
<p>SelStart, SelLength: Integer;</p>
<p>SearchString: String;</p>
<p>Options: TFindOptions): PChar; </p>
<p>implementation </p>
<p>function SearchMemo(Memo: TCustomEdit;</p>
<p>const SearchString: String;</p>
<p>Options: TFindOptions): Boolean;</p>
<p>var</p>
<p>Buffer, P: PChar;</p>
<p>Size: Word;</p>
<p>begin</p>
<p>Result := False;</p>
<p>if (Length(SearchString) = 0) then Exit;</p>
<p>Size := Memo.GetTextLen;</p>
<p>if (Size = 0) then Exit;</p>
<p>Buffer := StrAlloc(Size + 1);</p>
<p>try</p>
<p>Memo.GetTextBuf(Buffer, Size + 1);</p>
<p>P := SearchBuf(Buffer, Size, Memo.SelStart,</p>
<p>Memo.SelLength,SearchString, Options);</p>
<p>if P <> nil then</p>
<p>begin</p>
<p>Memo.SelStart := P - Buffer;</p>
<p>Memo.SelLength := Length(SearchString);</p>
<p>Result := True;</p>
<p>end;</p>
<p>finally</p>
<p>StrDispose(Buffer);</p>
<p>end;</p>
<p>end; </p>
<p>function SearchBuf(Buf: PChar; BufLen: Integer;</p>
<p>SelStart, SelLength: Integer;</p>
<p>SearchString: String;</p>
<p>Options: TFindOptions): PChar;</p>
<p>var</p>
<p>SearchCount, I: Integer;</p>
<p>C: Char;</p>
<p>Direction: Shortint;</p>
<p>CharMap: array [Char] of Char; </p>
<p>function FindNextWordStart(var BufPtr: PChar): Boolean;</p>
<p>begin { (True XOR N) is equivalent to</p>
<p>(not N) }</p>
<p>Result := False; { (False XOR N) is equivalent</p>
<p>to (N) }</p>
<p>{ When Direction is forward (1), skip non</p>
<p>delimiters, then skip delimiters. }</p>
<p>{ When Direction is backward (-1), skip delims, then</p>
<p>skip non delims }</p>
<p>while (SearchCount > 0) and</p>
<p>((Direction = 1) xor (BufPtr^ in</p>
<p>WordDelimiters)) do</p>
<p>begin</p>
<p>Inc(BufPtr, Direction);</p>
<p>Dec(SearchCount);</p>
<p>end;</p>
<p>while (SearchCount > 0) and</p>
<p>((Direction = -1) xor (BufPtr^ in</p>
<p>WordDelimiters)) do</p>
<p>begin</p>
<p>Inc(BufPtr, Direction);</p>
<p>Dec(SearchCount);</p>
<p>end;</p>
<p>Result := SearchCount > 0;</p>
<p>if Direction = -1 then</p>
<p>begin { back up one char, to leave ptr on first non</p>
<p>delim }</p>
<p>Dec(BufPtr, Direction);</p>
<p>Inc(SearchCount);</p>
<p>end;</p>
<p>end; </p>
<p>begin</p>
<p>Result := nil;</p>
<p>if BufLen <= 0 then Exit;</p>
<p>if frDown in Options then</p>
<p>begin</p>
<p>Direction := 1;</p>
<p>Inc(SelStart, SelLength); { start search past end of</p>
<p>selection }</p>
<p>SearchCount := BufLen - SelStart - Length(SearchString);</p>
<p>if SearchCount < 0 then Exit;</p>
<p>if Longint(SelStart) + SearchCount > BufLen then</p>
<p>Exit;</p>
<p>end</p>
<p>else</p>
<p>begin</p>
<p>Direction := -1;</p>
<p>Dec(SelStart, Length(SearchString));</p>
<p>SearchCount := SelStart;</p>
<p>end;</p>
<p>if (SelStart < 0) or (SelStart > BufLen) then Exit;</p>
<p>Result := @Buf[SelStart]; </p>
<p>{ Using a Char map array is faster than calling</p>
<p>AnsiUpper on every character }</p>
<p>for C := Low(CharMap) to High(CharMap) do</p>
<p>CharMap[C] := C; </p>
<p>if not (frMatchCase in Options) then</p>
<p>begin</p>
<p>AnsiUpperBuff(PChar(@CharMap), sizeof(CharMap));</p>
<p>AnsiUpperBuff(@SearchString[1],</p>
<p>Length(SearchString));</p>
<p>end; </p>
<p>while SearchCount > 0 do</p>
<p>begin</p>
<p>if frWholeWord in Options then</p>
<p>if not FindNextWordStart(Result) then Break;</p>
<p>I := 0;</p>
<p>while (CharMap[Result[I]] = SearchString[I+1]) do</p>
<p>begin</p>
<p>Inc(I);</p>
<p>if I >= Length(SearchString) then</p>
<p>begin</p>
<p>if (not (frWholeWord in Options)) or</p>
<p>(SearchCount = 0) or</p>
<p>(Result[I] in WordDelimiters) then</p>
<p>Exit;</p>
<p>Break;</p>
<p>end;</p>
<p>end;</p>
<p>Inc(Result, Direction);</p>
<p>Dec(SearchCount);</p>
<p>end;</p>
<p>Result := nil;</p>
<p>end; </p>
<p>end.</p>
<p><font face="宋體" lang="ZH-CN"> </font>4.4.3 <font face="宋體" lang="ZH-CN">替換對話框部件 </font></p>
<font face="宋體" lang="ZH-CN"><p> 替換對話框部件為應用程序提供替換對話框。如圖</font>4.9<font
face="宋體" lang="ZH-CN">。它包括查找對話框的所有功能，此外還允許使用者更換被選中的字符串。</font>FindText
<font face="宋體" lang="ZH-CN">屬性是應用程序需查找的字符串。</font>ReplaceText<font
face="宋體" lang="ZH-CN">屬性是被選中字符的替換字符串。</font>Options <font
face="宋體" lang="ZH-CN">屬性決定對話框的顯示方式。其值如表</font>4.3<font
face="宋體" lang="ZH-CN">所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>與查找對話框一樣，替換對話框亦有</font>OnFind
<font face="宋體" lang="ZH-CN">事件。用戶輸入查找字符串并按</font>FindNext<font
face="宋體" lang="ZH-CN">按鈕時，發生</font>OnFind <font face="宋體"
lang="ZH-CN">事件。用戶選擇</font>Replace <font face="宋體" lang="ZH-CN">或</font>ReplacAll
<font face="宋體" lang="ZH-CN">時，</font> <font face="宋體" lang="ZH-CN">對話框發生</font>OnRelpace<font
face="宋體" lang="ZH-CN">事件，要替換的字符串存入</font>ReplaceText<font
face="宋體" lang="ZH-CN">屬性中，要編寫相應的代碼以支持替換功能。 </p>
</font><p><font face="宋體" lang="ZH-CN"> 表</font>4.3 <font face="宋體"
lang="ZH-CN">替換對話框的</font>Options<font face="宋體" lang="ZH-CN">屬性的取值及含義</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</font>
</p>
<p><font face="宋體" lang="ZH-CN">取值 含義</font></p>
<p><font face="宋體" lang="ZH-CN">────────────────────────────────────────</font></p>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -