第四章文本編輯器的設(shè)計二-文庫吧資料
2024-09-13 15:26本頁面
【正文】 egin := ReplaceText。 begin with ReplaceDialog1 do begin if AnsiCompareText(, FindText) = 0 then := ReplaceText。其代碼如下： procedure (Sender: TObject)。而后根據(jù) Options中的方式循 環(huán)進(jìn)行查找替換。 frReplacAll 如果是真值，應(yīng)用程序?qū)?ReplaceText 屬性中的字符串替換， 查找到的所有 FindText屬性中的字符串。用戶選擇 Replace 或 ReplacAll 時， 對話框發(fā)生 OnRelpace 事件，要替換的字符串存入 ReplaceText 屬性中，要編寫相應(yīng)的代碼以支持替換功能。 與查找對話框一樣，替換對話框亦有 OnFind 事件。 Options 屬性決定對話框的顯示方式。 FindText 屬性是應(yīng)用程序需查找的字符串。如圖 。 end。 end。 Inc(Result, Direction)。 end。 if I = Length(SearchString) then begin if (not (frWholeWord in Options)) or (SearchCount = 0) or (Result[I] in WordDelimiters) then Exit。 I := 0。 end。 if not (frMatchCase in Options) then begin AnsiUpperBuff(PChar(CharMap), sizeof(CharMap))。 Result := Buf[SelStart]。 end。 Dec(SelStart, Length(SearchString))。 if Longint(SelStart) + SearchCount BufLen then Exit。 { start search past end of selection } SearchCount := BufLen SelStart Length(SearchString)。 if frDown in Options then begin Direction := 1。 begin Result := nil。 end。 if Direction = 1 then begin { back up one char, to leave ptr on first non delim } Dec(BufPtr, Direction)。 end。 while (SearchCount 0) and ((Direction = 1) xor (BufPtr^ in WordDelimiters)) do begin Inc(BufPtr, Direction)。 Dec(SearchCount)。 begin { (True XOR N) is equivalent to (not N) } Result := False。 CharMap: array [Char] of Char。 C: Char。 Options: TFindOptions): PChar。 SelStart, SelLength: Integer。 function SearchBuf(Buf: PChar。 end。 end。 := Length(SearchString)。 P := SearchBuf(Buffer, Size, , ,SearchString, Options)。 Buffer := StrAlloc(Size + 1)。 Size := 。 begin Result := False。 var Buffer, P: PChar。 const SearchString: String。 Options: TFindOptions): PChar。 SelStart, SelLength: Integer。 function SearchBuf(Buf: PChar。 const SearchString: String。]。,39。..39。,39。..39。,39。..39。 const WordDelimiters: set of Char = [0..255] [39。 SearchMemo代碼如下： unit Search。查找時，焦點(diǎn)在查找對話框上，因此要想了解查找情況，必須將 HideSeletion 設(shè)成假值。
公司管理相關(guān)推薦
鄂ICP備17016276號-1