国产探花免费观看_亚洲丰满少妇自慰呻吟_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;

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 文成县| 呈贡县| 吕梁市| 东乌| 西乌珠穆沁旗| 雷波县| 公主岭市| 那曲县| 库尔勒市| 建湖县| 资溪县| 舞钢市| 苍梧县| 浦县| 长海县| 深州市| 新竹市| 贵定县| 大姚县| 丹江口市| 广汉市| 嘉善县| 垫江县| 玉田县| 南汇区| 苍梧县| 白玉县| 古浪县| 高清| 辛集市| 西吉县| 邵东县| 耒阳市| 乳山市| 磐安县| 青神县| 都江堰市| 马山县| 绍兴县| 枣阳市| 东源县|