Delphi Memo1 字符串快速查找定位


本文整理自网络,侵删。

 
procedure TForm1.Button3Click(Sender: TObject);
var
  I, L: Integer;

begin
  Memo1.WordWrap:= False;
  Memo1.Lines.LoadFromFile('Windows.pas');
  I:= Pos('finalization', Memo1.Text);
  if I > 0 then begin
    L := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, I - 1, 0);
    ShowMessage('Found at line ' + IntToStr(L));
// if you need to select the text found:
    Memo1.SelStart := I - 1;
    Memo1.SelLength := Length('finalization');
    Memo1.SetFocus;
  end;
end;

相关阅读 >>

Delphi image1 图像旋转90

Delphi 字符串与内存流和文件的快速转换函数

Delphi 一个绘制虚线的非常规函数(常规方法,打印机上绘制不出虚线)

strpcopy 将字符串复制到字符数组中

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi fmx下怎么得到当前程序的路径和文件名称?

Delphi xe6 android拨号函数

Delphi tadodataset 中文使用说明

Delphi如何简单取得后缀名

Delphi stringtowidestring widestringtostring

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...