?? 013.htm
字號:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>—DELPHI基礎(chǔ)教程—第四章 文本編輯器的設(shè)計(jì)（二）</TITLE><META NAME="keywords" CONTENT=" DELPHI基礎(chǔ)教程 第四章 文本編輯器的設(shè)計(jì)（二）"><META NAME="description" CONTENT=" - DELPHI基礎(chǔ)教程 - 第四章 文本編輯器的設(shè)計(jì)（二）"><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" bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3"><TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0><TR><TD CLASS="tt3" VALIGN="top" width="8%" ><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></strong></TD><TD class="tt2" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="隸書">第四章 文本編輯器的設(shè)計(jì)（二）</FONT></B></center><hr width="94%"></font><p>4.4.2<font face="宋體" lang="ZH-CN">查找對話框部件 </p><p> 查找對話框部件為應(yīng)用程序提供查找對話框，</font> <fontface="宋體" lang="ZH-CN">用戶可使用查找對話框在文本文件中查找字符串。</p><p> 可用</font>Execult<font face="宋體" lang="ZH-CN">方法顯示查找對話框，如圖</font>4.8<fontface="宋體" lang="ZH-CN">。應(yīng)用程序要查找的字符放到</font>FindText<fontface="宋體" lang="ZH-CN">屬性中。</font>Options <font face="宋體" lang="ZH-CN">屬性可決定查找對話框中有哪些選項(xiàng)。例如，</font><font face="宋體" lang="ZH-CN">用戶可選擇是否顯示匹配檢查框。</font>Options<fontface="宋體" lang="ZH-CN">的常用選項(xiàng)如表</font>4.2<font face="宋體" lang="ZH-CN">所示。</font></p><font face="宋體" lang="ZH-CN"><p>如果用戶在對話框中輸入字符并選擇</font>FindNext<fontface="宋體" lang="ZH-CN">按鈕，對話框?qū)l(fā)生</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<fontface="宋體" lang="ZH-CN">屬性的取值及含義</font></p><p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</font></p><p><font face="宋體" lang="ZH-CN">取值 </font> <fontface="宋體" lang="ZH-CN">含義</font></p><p><font face="宋體" lang="ZH-CN">───────────────────────────────────────</font></p><p>frDown <font face="宋體" lang="ZH-CN">如果是真值，對話框中出現(xiàn)</font>Down<fontface="宋體" 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">值可在設(shè)計(jì)或運(yùn)行</font></p><p><font face="宋體" lang="ZH-CN">時(shí)設(shè)置。</font></p><p>frDisableUpDown <font face="宋體" lang="ZH-CN">如果是真值，</font>Up<fontface="宋體" lang="ZH-CN">和</font>Down<font face="宋體" lang="ZH-CN">按鈕將變灰，用戶不能進(jìn)行選取；如果是</font></p><p><font face="宋體" lang="ZH-CN">假值，用戶可以選擇其中之一。</font></p><p>frFindNext <font face="宋體" lang="ZH-CN">如果是真值，應(yīng)用程序查找在</font>FindNext<fontface="宋體" lang="ZH-CN">屬性中的字符串。</font></p><p>frMatchCase <font face="宋體" lang="ZH-CN">如果是真值，匹配檢查框被選中。設(shè)計(jì)、運(yùn)行時(shí)均可設(shè)置。</font></p><p>frWholeWord <font face="宋體" lang="ZH-CN">如果是真值，整字匹配檢查框被選中，設(shè)計(jì)、運(yùn)行時(shí)均可設(shè)置。</font></p><p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ </p><p> 在</font>OnFind<font face="宋體" lang="ZH-CN">事件中可使用</font>Options<fontface="宋體" lang="ZH-CN">屬性來決定以何種方式查找。</font>Find<fontface="宋體" lang="ZH-CN">方法響應(yīng)查找對話框的</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<fontface="宋體" lang="ZH-CN">函數(shù)是</font>Search<font face="宋體" lang="ZH-CN">單元中定義的，</font>SearchMemo<fontface="宋體" lang="ZH-CN">可在</font>TEdit,TMemo<font face="宋體" lang="ZH-CN">，以及其它</font>TCustomEdit<fontface="宋體" lang="ZH-CN">派生類中查找指定的字符串。查找從控件的脫字號</font>(^)<fontface="宋體" lang="ZH-CN">開始，</font> <font face="宋體" lang="ZH-CN">查找方式由</font>Options<fontface="宋體" lang="ZH-CN">決定。如果向后查找從控件的</font>StlStart<fontface="宋體" lang="ZH-CN">處開始，如果向前查找則從控件的</font>SelEnd<fontface="宋體" lang="ZH-CN">處查找。</p><p> 如果在控件中找到相匹配的字符串，則字符串被選中，函數(shù)返回真值。如無匹配的字符串，函數(shù)返回假值。</p><p> 特別注意的是</font>TEdit,TMemo<font face="宋體" lang="ZH-CN">中有一個(gè)</font>HideSeletion<fontface="宋體" lang="ZH-CN">屬性，它決定當(dāng)焦點(diǎn)從該控制轉(zhuǎn)移至其它控制時(shí)，被選中的字符是否保持被選中的狀態(tài)。如果是真值，則只有獲得焦點(diǎn)才能保持被選中狀態(tài)。查找時(shí)，焦點(diǎn)在查找對話框上，因此要想了解查找情況，必須將</font>HideSeletion<fontface="宋體" lang="ZH-CN">設(shè)成假值。控制的缺省值為真值。</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> 替換對話框部件為應(yīng)用程序提供替換對話框。如圖</font>4.9<fontface="宋體" lang="ZH-CN">。它包括查找對話框的所有功能，此外還允許使用者更換被選中的字符串。</font>FindText<font face="宋體" lang="ZH-CN">屬性是應(yīng)用程序需查找的字符串。</font>ReplaceText<fontface="宋體" lang="ZH-CN">屬性是被選中字符的替換字符串。</font>Options <fontface="宋體" lang="ZH-CN">屬性決定對話框的顯示方式。其值如表</font>4.3<fontface="宋體" lang="ZH-CN">所示。</font></p><font face="宋體" lang="ZH-CN"><p>與查找對話框一樣，替換對話框亦有</font>OnFind<font face="宋體" lang="ZH-CN">事件。用戶輸入查找字符串并按</font>FindNext<fontface="宋體" lang="ZH-CN">按鈕時(shí)，發(fā)生</font>OnFind <font face="宋體"lang="ZH-CN">事件。用戶選擇</font>Replace <font face="宋體" lang="ZH-CN">或</font>ReplacAll<font face="宋體" lang="ZH-CN">時(shí)，</font> <font face="宋體" lang="ZH-CN">對話框發(fā)生</font>OnRelpace<fontface="宋體" lang="ZH-CN">事件，要替換的字符串存入</font>ReplaceText<fontface="宋體" lang="ZH-CN">屬性中，要編寫相應(yīng)的代碼以支持替換功能。 </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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -