| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3273649
建立时间:2005年6月6日 |
| |
|
 [delpih编程]DELPHI中memo的查找操作（转）
软件技术
吕向阳 发表于 2009/3/24 9:58:22 |
| procedure TForm1.dlgFindMemo1Find(Sender: TObject);
var
i,PosReturn:Integer;
str:string;
begin
i:=Memo1.SelStart+memo1.SelLength ;
str :=Copy(Memo1.Text,i+1,Length(Memo1.Text));
PosReturn :=Pos(dlgFindMemo1.FindText,str);
if PosReturn <>0 then
begin
Memo1.SetFocus;
Memo1.SelStart:=PosReturn+i-1;
Memo1.SelLength:=Length(dlgFindMemo1.FindText);
end;
end;
|
|
|