国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

RichEdit中實現查找功能

2019-11-17 05:07:26
字體：大 中 小
來源：轉載
供稿：網友
　　RichEdit有一個FindText函數，極大方便了我們為RichEdit編制查找功能。下面的片斷取自于Delphi幫助中的范例。

C++ Builder

請參照Delphi的例子

Delphi

PRocedure TMainForm.FindDialogFind(Sender: TObject);

var

FoundAt: LongInt;

StartPos, ToEnd: integer;

SearchFlag: TSearchTypes;

begin

if frMatchCase in FindDialog.Options then

SearchFlag:=[stMatchCase];

if frWholeWord in FindDialog.Options then

SearchFlag:=SearchFlag+[stWholeWord];

with RichEdit do

begin

StartPos:=SelStart+SelLength;

ToEnd:=Length(Text) - StartPos;

FoundAt:=FindText(FindDialog.FindText, StartPos, ToEnd, [stMatchCase]);

if FoundAt<>-1 then

begin

SetFocus;

SelStart:=FoundAt;

SelLength:=Length(FindDialog.FindText);

end

else

begin

SelLength:=0;

SelStart:=StartPos;

application.MessageBox(PChar(找不到+FindDialog.FindText),查找失敗,0);

end;

end;

end;

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 寿宁县| 马龙县| 长泰县| 武威市| 武乡县| 九龙城区| 湄潭县| 精河县| 高台县| 阆中市| 梁平县| 河南省| 苏尼特左旗| 嘉义市| 安多县| 江阴市| 邳州市| 鄢陵县| 宜宾市| 行唐县| 沁阳市| 双城市| 孟津县| 商城县| 新宁县| 扶绥县| 罗定市| 长治县| 乌拉特中旗| 伊金霍洛旗| 伊春市| 麦盖提县| 南川市| 义乌市| 富民县| 新野县| 吉安市| 筠连县| 安义县| 鹰潭市| 宁远县|