第四章文本編輯器的設(shè)計(jì)二-wenkub
2022-09-16 15:26:28 本頁(yè)面
【正文】 n WordDelimiters)) do begin Inc(BufPtr, Direction)。 Direction: Shortint。 SearchString: String。 end。 Result := True。 try (Buffer, Size + 1)。 if (Length(SearchString) = 0) then Exit。 Options: TFindOptions): Boolean。 SearchString: String。 Options: TFindOptions): Boolean。039。139。A39。a39?？刂频娜笔≈禐檎嬷怠Ｈ鐭o(wú)匹配的字符串，函數(shù)返回假值。 其中 SearchMemo函數(shù)是 Search單元中定義的， SearchMemo可在 TEdit,TMemo，以及其它 TCustomEdit 派生類(lèi)中查找指定的字符串。 + FindText + 39。 Find 方法響應(yīng)查找對(duì)話框的 OnFind 事件。 frMatchCase 如果是真值，匹配檢查框被選中。 表 查找對(duì)話框的 Options 屬性 的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 取值 含義 ─────────────────────────────────────── frDown 如果是真值，對(duì)話框中出現(xiàn) Down 按鈕，查找方向向下。 Options 屬性可決定查找對(duì)話框中有哪些選項(xiàng)。第四章 文本編輯器的設(shè)計(jì)（二） 查找對(duì)話框部件 查找對(duì)話框部件為應(yīng)用程序提供查找對(duì)話框， 用戶可使用查找對(duì)話框在文本文件中查找字符串。例如， 用戶可選擇是否顯示匹配檢查框。如果是假 值， Up 按鈕將被選中，查找方向向上， frDown 值可在設(shè)計(jì)或運(yùn)行 時(shí)設(shè)置。設(shè)計(jì)、運(yùn)行時(shí)均可設(shè)置。 procedure (Sender: TObject)。.39。查找從控件的脫字號(hào) (^)開(kāi)始， 查找方式由 Options 決定。 特別注意的是 TEdit,TMemo 中有一個(gè) HideSeletion 屬性，它決定當(dāng)焦點(diǎn)從該控制轉(zhuǎn)移至其它控制時(shí)，被選中的字符是否保持被選中的狀態(tài)。 SearchMemo代碼如下： unit Search。..39。..39。..39。]。 function SearchBuf(Buf: PChar。 Options: TFindOptions): PChar。 var Buffer, P: PChar。 Size := 。 P := SearchBuf(Buffer, Size, , ,SearchString, Options)。 end。 function SearchBuf(Buf: PChar。 Options: TFindOptions): PChar。 CharMap: array [Char] of Char。 Dec(SearchCount)。 end。 end。 if frDown in Options then begin Direction := 1。 if Longint(SelStart) + SearchCount BufLen then Exit。 end。 if not (frMatchCase in Options) then begin AnsiUpperBuff(PChar(CharMap), sizeof(CharMap))。 I := 0。 end。 end。如圖 。 Options 屬性決定對(duì)話框的顯示方式。用戶選擇 Replace 或 ReplacAll 時(shí)， 對(duì)話框發(fā)生 OnRelpace 事件，要替換的字符串存入 ReplaceText 屬性中，要編寫(xiě)相應(yīng)的代碼以支持替換功能。而后根據(jù) Options中的方式循 環(huán)進(jìn)行查找替換。 begin with ReplaceDialog1 do begin if AnsiCompareText(, FindText) = 0 then := ReplaceText。 end。.39。 打開(kāi)對(duì)話框部件 打開(kāi)對(duì)話框部件為應(yīng)用程序顯示打開(kāi)對(duì)話框。 打開(kāi)對(duì)話框包含一個(gè) Filters(過(guò)濾器 )的屬性，它可確定文件類(lèi)型和在文件類(lèi)型下拉框中的順序。 begin if OpenDialog/.Execult then begin … Open(Open Dialog/.FileName) end end
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1