在richedit中的串查找 (2000年11月8日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 46 行

在RichEdit中的串查找 (2000年11月8日) 

本站更新  分类:   作者:http://www.pickweb.com  推荐:   阅读次数:506  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

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;