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 获取国外格式日期时间

Delphi android 拨打电话

Delphi sql server 主从表例子

Delphi屏蔽alt+tab键代码

Delphi的四舍五入函数

Delphi xe5 安卓设置屏幕横屏竖屏

Delphi 主程序装载脚本

Delphi url编码与解码工具附代码

Delphi 播放声音 采用 异步方式，比较流畅

Delphi 选择一张照片，让照片缩略图显示在图片控件中间

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

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