Delphi Memo1 字符串快速查找定位2

本文整理自网络，侵删。

 

  Memo1.WordWrap:= False;

   function TForm1.FindText( const aPatternToFind: String):Boolean;
  var
    p: Integer;
  begin
    p := pos(aPatternToFind, Memo1.Text);
    Result :=  (p > 0);
    if Result then
      begin
        Memo1.SelStart := p;
        Memo1.SelLength := Length(aPatternToFind);
        Memo1.SetFocus; // necessary so highlight is visible
      end;
  end;
 

相关阅读 >>

Delphi 程序如何禁止切换输入法?

Delphi实例之一个较复杂的记事本的实现

Delphi 取当前目录下所有文件夹名和文件名

Delphi 中压缩流和解压流的应用

Delphi 打包文件到apk安装包中

Delphi date 返回当前的日期

Delphi xe5实现datetimetounix/unixtodatetime的一点小改进

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi下用cdo发送邮箱实例(授权码cdo发送邮箱的解决办法)

Delphi xe intraweb 程序在iis下的发布详细教程

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

转载请注明出处：木庄网络博客 » Delphi Memo1 字符串快速查找定位2