procedure TForm2.FindDialog1Find(Sender: TObject);
var
FindAt:longint;
toEnd,Start:integer;
begin
with RichEdit1 do
begin
if SelLength<>0 then
Start:=SelStart+SelLength
else
Start:=0;
toEnd:=length(Text)-Start;
FindAt:=FindText(FindDialog1.FindText,Start,toEnd,[stMatchCase,stWholeWord]);
//用showmessage测试FindAt结果总是-1,但上面的式子有什么地方出错,请大虾指示!
if FindAt<>-1 then
begin
SetFocus;
SelStart:=FindAt;
SelLength:=length(FindDialog1.FindText);
end
else
application.MessageBox('查找字符','查找字符串',MB_OK);
end;
var
FindAt:longint;
toEnd,Start:integer;
begin
with RichEdit1 do
begin
if SelLength<>0 then
Start:=SelStart+SelLength
else
Start:=0;
toEnd:=length(Text)-Start;
FindAt:=FindText(FindDialog1.FindText,Start,toEnd,[stMatchCase,stWholeWord]);
//用showmessage测试FindAt结果总是-1,但上面的式子有什么地方出错,请大虾指示!
if FindAt<>-1 then
begin
SetFocus;
SelStart:=FindAt;
SelLength:=length(FindDialog1.FindText);
end
else
application.MessageBox('查找字符','查找字符串',MB_OK);
end;
解决方案 »
- 那位天使大哥,大姐有三层结构的质料,发份给我有实例最好(简单点的!)
- 怎么动态控制DBGRID的字段?
- 关于指针的指针的问题(分不够可加)
- delphi6 中ppReport 打印的时候如何让其不出现预览界面而是直接打印?哪位大哥能帮忙解决一下?多谢!
- 有谁做过WINSOKET?最好能给一个详细的例子,非常急迫啊。
- 那位是武林高手,关于病毒的问题!!
- 【倒分热线】封杀kezhang以及kezhang000
- 怎么知道query中的记录条数
- 各们大侠,treeview的imageindex怎么用呀!
- 关于DELPHI中的超连接的问题
- TextOut如何加上或去除其文字的背景色?
- 请问哪儿有类似画图板和写字板的原代码?
var
FindAt:longint;
toEnd,Start:integer;
begin
with RichEdit1 do
begin
if SelLength<>0 then
Start:=SelStart+SelLength
else
Start:=0;
toEnd:=length(Text)-Start;
FindAt:=FindText(FindDialog1.FindText,Start,toEnd,[]);//试试这样
//用showmessage测试FindAt结果总是-1,但上面的式子有什么地方出错,请大虾指示!
if FindAt<>-1 then
begin
SetFocus;
SelStart:=FindAt;
SelLength:=length(FindDialog1.FindText);
end
else
application.MessageBox('查找字符','查找字符串',MB_OK);
end;
if find then findat:=1;
else findat:=0;