亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來(lái)到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? 013.htm

?? Delphi基礎(chǔ)知識(shí)講座
?? HTM
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào): 
<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" 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">后一頁(yè)</font></A><BR>
<A HREF="012.htm" ><FONT style="FONT-SIZE: 9pt">前一頁(yè)</font></A><BR>

<A HREF="index.html" ><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁(yè)</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">第四章　文本編輯器的設(shè)計(jì)（二）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
</font><p>4.4.2<font face="宋體" lang="ZH-CN">查找對(duì)話框部件　</p>
<p>　　查找對(duì)話框部件為應(yīng)用程序提供查找對(duì)話框，</font> <font
face="宋體" lang="ZH-CN">用戶可使用查找對(duì)話框在文本文件中查找字符串。</p>
<p>　　可用</font>Execult<font face="宋體" lang="ZH-CN">方法顯示查找對(duì)話框，如圖</font>4.8<font
face="宋體" lang="ZH-CN">。應(yīng)用程序要查找的字符放到</font>FindText<font
face="宋體" lang="ZH-CN">屬性中。</font>Options <font face="宋體" lang="ZH-CN">屬性可決定查找對(duì)話框中有哪些選項(xiàng)。例如，</font>
<font face="宋體" lang="ZH-CN">用戶可選擇是否顯示匹配檢查框。</font>Options<font
face="宋體" lang="ZH-CN">的常用選項(xiàng)如表</font>4.2<font face="宋體" lang="ZH-CN">所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>如果用戶在對(duì)話框中輸入字符并選擇</font>FindNext<font
face="宋體" lang="ZH-CN">按鈕，對(duì)話框?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">查找對(duì)話框的</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">如果是真值，對(duì)話框中出現(xiàn)</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">值可在設(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<font
face="宋體" 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<font
face="宋體" 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<font
face="宋體" lang="ZH-CN">屬性來(lái)決定以何種方式查找。</font>Find<font
face="宋體" lang="ZH-CN">方法響應(yīng)查找對(duì)話框的</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 &quot;' + FindText + '&quot;.');</p>
<p>end;</p>
<p><font face="宋體" lang="ZH-CN">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 其中</font>SearchMemo<font
face="宋體" lang="ZH-CN">函數(shù)是</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">派生類中查找指定的字符串。查找從控件的脫字號(hào)</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>　　如果在控件中找到相匹配的字符串，則字符串被選中，函數(shù)返回真值。如無(wú)匹配的字符串，函數(shù)返回假值。</p>
<p>　　特別注意的是</font>TEdit,TMemo<font face="宋體" lang="ZH-CN">中有一個(gè)</font>HideSeletion<font
face="宋體" lang="ZH-CN">屬性，它決定當(dāng)焦點(diǎn)從該控制轉(zhuǎn)移至其它控制時(shí)，被選中的字符是否保持被選中的狀態(tài)。如果是真值，則只有獲得焦點(diǎn)才能保持被選中狀態(tài)。查找時(shí)，焦點(diǎn)在查找對(duì)話框上，因此要想了解查找情況，必須將</font>HideSeletion<font
face="宋體" 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 &lt;&gt; 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 &gt; 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 &gt; 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 &gt; 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 &lt;= 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 &lt; 0 then Exit;</p>
<p>if Longint(SelStart) + SearchCount &gt; 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 &lt; 0) or (SelStart &gt; 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 &gt; 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 &gt;= 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">替換對(duì)話框部件　</font></p>
<font face="宋體" lang="ZH-CN"><p>　　替換對(duì)話框部件為應(yīng)用程序提供替換對(duì)話框。如圖</font>4.9<font
face="宋體" lang="ZH-CN">。它包括查找對(duì)話框的所有功能，此外還允許使用者更換被選中的字符串。</font>FindText
<font face="宋體" lang="ZH-CN">屬性是應(yīng)用程序需查找的字符串。</font>ReplaceText<font
face="宋體" lang="ZH-CN">屬性是被選中字符的替換字符串。</font>Options <font
face="宋體" lang="ZH-CN">屬性決定對(duì)話框的顯示方式。其值如表</font>4.3<font
face="宋體" lang="ZH-CN">所示。</font></p>
<font face="宋體" lang="ZH-CN"><p>與查找對(duì)話框一樣，替換對(duì)話框亦有</font>OnFind
<font face="宋體" lang="ZH-CN">事件。用戶輸入查找字符串并按</font>FindNext<font
face="宋體" 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">對(duì)話框發(fā)生</font>OnRelpace<font
face="宋體" lang="ZH-CN">事件，要替換的字符串存入</font>ReplaceText<font
face="宋體" lang="ZH-CN">屬性中，要編寫相應(yīng)的代碼以支持替換功能。　</p>
</font><p><font face="宋體" lang="ZH-CN">　表</font>4.3 <font face="宋體"
lang="ZH-CN">替換對(duì)話框的</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>

?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
天堂成人国产精品一区| 美腿丝袜亚洲色图| 欧美一区二区高清| aaa国产一区| 美女被吸乳得到大胸91| 综合久久综合久久| 精品va天堂亚洲国产| 欧美日韩一卡二卡三卡 | 日本一区二区动态图| 欧美一级专区免费大片| 日本久久电影网| 风间由美一区二区三区在线观看 | 国产在线播放一区二区三区| 亚洲国产日产av| 亚洲欧洲精品一区二区精品久久久| 日韩欧美卡一卡二| 欧美性色黄大片手机版| 99视频一区二区三区| 国产一区二区三区综合| 日本一道高清亚洲日美韩| 一区二区三区小说| 国产精品久久久久久福利一牛影视 | 色综合视频在线观看| 国产盗摄一区二区| 国产在线精品不卡| 久久电影网电视剧免费观看| 亚洲bdsm女犯bdsm网站| 亚洲最大色网站| 亚洲人快播电影网| 国产精品久久久久久久久动漫 | 国产婷婷色一区二区三区在线| 日韩久久精品一区| 欧美一区二区三区视频免费 | 国产乱子轮精品视频| 精品午夜久久福利影院| 久久精品99久久久| 精品在线亚洲视频| 麻豆视频一区二区| 久久精品国产亚洲一区二区三区| 五月综合激情网| 天天爽夜夜爽夜夜爽精品视频| 亚洲一区二区三区中文字幕在线| 亚洲曰韩产成在线| 性感美女极品91精品| 天堂在线一区二区| 免费观看在线色综合| 看片网站欧美日韩| 国产精品一区二区三区乱码| 国产一区高清在线| 成人少妇影院yyyy| 色综合久久天天综合网| 欧美午夜不卡在线观看免费| 7777精品伊人久久久大香线蕉完整版 | 高清成人免费视频| 丁香亚洲综合激情啪啪综合| 成人黄色电影在线| 在线观看91精品国产入口| 欧美色窝79yyyycom| 91精品国产入口| 2024国产精品| 中文字幕亚洲欧美在线不卡| 一区二区三区自拍| 日韩在线一二三区| 久久精品二区亚洲w码| 福利一区福利二区| 色婷婷综合久久久久中文一区二区 | 亚洲在线观看免费| 蜜臀va亚洲va欧美va天堂| 国产一区二区不卡| 99这里只有久久精品视频| 欧美视频一区二区三区| 欧美成人官网二区| 一区精品在线播放| 午夜av一区二区三区| 国产一二精品视频| 91精彩视频在线观看| 欧美一区二区三区视频在线观看| 久久免费午夜影院| 亚洲视频香蕉人妖| 国产精品色哟哟| 国产精品美日韩| 亚洲高清久久久| 国产精品正在播放| 欧美亚洲动漫精品| 国产亚洲欧美日韩日本| 一区二区在线电影| 久久99国产乱子伦精品免费| 99热在这里有精品免费| 91精品国产全国免费观看| 国产午夜精品美女毛片视频| 一区二区三区四区在线| 国内精品自线一区二区三区视频| 99精品视频中文字幕| 亚洲精品一区二区三区在线观看| 亚洲毛片av在线| 粉嫩一区二区三区在线看| 欧美二区三区的天堂| 中日韩免费视频中文字幕| 日韩精品成人一区二区在线| av电影一区二区| 久久久久久电影| 日本伊人色综合网| 欧美吞精做爰啪啪高潮| 国产精品久久777777| 精品一区二区综合| 欧美日韩精品专区| 亚洲欧美视频在线观看视频| 久久99热99| 91精品国产综合久久香蕉的特点| 国产精品不卡在线观看| 国产成人精品午夜视频免费| 欧美精选一区二区| 亚洲一区二区三区中文字幕在线| 成人高清视频在线观看| 26uuu另类欧美| 日本成人在线一区| 欧美绝品在线观看成人午夜影视| 亚洲三级久久久| 成人手机在线视频| 国产欧美一区二区三区沐欲| 国产在线一区观看| 欧美成人精精品一区二区频| 天天操天天色综合| 欧美艳星brazzers| 亚洲影院理伦片| 91国产福利在线| 国产精品久久久久久久久快鸭| 丁香天五香天堂综合| 国产亚洲女人久久久久毛片| 国产麻豆精品theporn| 久久久久久久久岛国免费| 国产一区二区三区蝌蚪| 2020日本不卡一区二区视频| 激情综合色综合久久综合| 欧美成va人片在线观看| 九色综合狠狠综合久久| 精品国产免费视频| 国产一区91精品张津瑜| 国产亚洲精品aa午夜观看| 国产福利一区在线| 国产精品三级av在线播放| 成人午夜视频福利| 亚洲欧美中日韩| 在线这里只有精品| 天堂在线亚洲视频| 欧美一级xxx| 国产在线精品一区在线观看麻豆| 国产夜色精品一区二区av| 成人的网站免费观看| 亚洲视频在线观看一区| 欧美亚洲一区二区在线观看| 亚洲福中文字幕伊人影院| 欧美一级欧美一级在线播放| 另类的小说在线视频另类成人小视频在线 | 日韩一区二区三区视频| 日本欧美在线看| 久久色.com| 99国产精品国产精品久久| 亚洲精品日产精品乱码不卡| 欧美三片在线视频观看| 美洲天堂一区二卡三卡四卡视频| wwwwww.欧美系列| eeuss鲁一区二区三区| 午夜在线成人av| 337p日本欧洲亚洲大胆色噜噜| 丁香一区二区三区| 一区二区三区美女视频| 日韩三级.com| 成人午夜视频在线观看| 亚洲男人的天堂一区二区 | 久久日一线二线三线suv| 成av人片一区二区| 亚洲超碰精品一区二区| 久久久另类综合| 色素色在线综合| 九九九精品视频| 日韩码欧中文字| 精品久久久久久久人人人人传媒 | 久久综合久久鬼色| 91成人国产精品| 国产伦精品一区二区三区视频青涩 | 欧美www视频| 在线视频欧美精品| 国产精品一二三四区| 亚洲香肠在线观看| 国产视频在线观看一区二区三区| 欧美亚洲图片小说| 国产成人在线网站| 丝袜亚洲精品中文字幕一区| 国产精品国产三级国产aⅴ原创| 欧美高清在线一区| 欧美精品在线一区二区| 成人免费av资源| 蜜臀久久99精品久久久久宅男 | 精品美女一区二区| 色婷婷狠狠综合| 国产精品一线二线三线精华| 日韩中文欧美在线| 亚洲男女毛片无遮挡| 久久久久久久久久久黄色|