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-xe5-开发 android uri简介

Delphi xe10 给程序添加uac权限

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

Delphi 几个实用的html解析函数

Delphi gdi+ 实现简单画图

Delphi textfile读取文本文件

Delphi excel操作，写了个adodataset转excel的函数

Delphi html转义

Delphi实现音频传输

Delphi json字符串转义

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

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