帮帮忙,新手求问

IloveMint 2003-09-10 10:49:26
procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt:LongInt;
StartPos, ToEnd:integer;
begin
with form1.Memo1 do
begin
if SelLength<>0 then
StartPos:=SelLength+SelStart
else
StartPos:=0;

ToEnd:=Length(Text)-StartPos;
FoundAt:=FindText(FindDialog1.FindText,StartPos,ToEnd,[stMatchCase]); 这句的FindDialog1.FindText为何是无定义的?下面的却可以
if FoundAt<>-1 then
begin
SetFocus;
SelStart:=FoundAt;
SelLength:=Length(FindDialog1.FindText);
end;
end;
end;
...全文
75 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
IloveMint 2003-09-11
  • 打赏
  • 举报
回复
搞定了,将memo换成richedit就好了,
结贴
zjqyb 2003-09-10
  • 打赏
  • 举报
回复
use Trichedit
tmemo没有FindText方法
zhp97 2003-09-10
  • 打赏
  • 举报
回复
呵呵,下面的是对象方法调用,而你上面的编译器会认为是函数调用,如果你没有定义该函数就会报这样的错
liyangyao970 2003-09-10
  • 打赏
  • 举报
回复
关注

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧