delphi 在memo查找字符并定位

本文整理自网络，侵删。

 var
SearchText:string;
k:integer;
begin
SearchText:='ABC'; //查找edit1中输入的文本
k:=pos(SearchText,memo1.Text); //求出首次出现SearchText的位置
if k=0 then
//showmessage('找不到')
else
begin
memo1.SelStart:=k;
memo1.SelLength:=length(SearchText);
memo1.SetFocus; //这一句很重要，否则就会看不到文字被选中
end;
 

相关阅读 >>

Delphi 为当前窗口客户区捉图: getformimage

Delphi nethttpclient post 函数

Delphi 进程隐藏的若干方法

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi 鼠标拖动控件自由移动位置

Delphi xe6 取得app自己的版本号(横跨4个平台)

Delphi使用tclientdataset时不携带midas.dll的方法

tclientsocket和tserversocket用法

Delphi api屏幕传输算法

Delphi驱动开发研究第一篇--实现原理

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 在memo查找字符并定位