830
社区成员
发帖
与我相关
我的任务
分享一个memo使用的问题！
对一个memo有没有这样的函数
找值为s的行
就是说某一行的值为'test'
我想让光标跳到test这一行
并选中这一行
怎么实现?
找值为s的行
就是说某一行的值为'test'
我想让光标跳到test这一行
并选中这一行
怎么实现?
...全文
请发表友善的回复…
发表回复
mars_han 2002-03-27
- 打赏
- 举报
你该结贴了吧，以上两位的观点一致，也是我的想法：）好运！！！
40Star 2002-03-27
- 打赏
- 举报
SelStart
imchk6 2002-03-27
- 打赏
- 举报
if pos('s',memo1.text)<>0 then
begin
memo1.SetFocus ;
memo1.SelStart :=pos('s',memo1.text)-1;
memo1.SelLength :=1;
end;
begin
memo1.SetFocus ;
memo1.SelStart :=pos('s',memo1.text)-1;
memo1.SelLength :=1;
end;
kevin_gao 2002-03-27
- 打赏
- 举报
var
p:integer;
len:integer;
findstr:string;
begin
findstr:='123';
len:=length(findstr);
p:=Pos(findstr,memo1.Text);
if(p>0)then
begin
memo1.SetFocus;
memo1.SelStart:=p-1;
memo1.SelLength:=len;
end;
end;
p:integer;
len:integer;
findstr:string;
begin
findstr:='123';
len:=length(findstr);
p:=Pos(findstr,memo1.Text);
if(p>0)then
begin
memo1.SetFocus;
memo1.SelStart:=p-1;
memo1.SelLength:=len;
end;
end;
