Delphi 在TMemo中查找文本

本文整理自网络，侵删。

 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 ｓｅｌｅｃｔ the text found:
    Memo1.SelStart := I - 1;
    Memo1.SelLength := Length('finalization');
    Memo1.SetFocus;
  end;
end;
 
请注意，行号是从零开始，你也应该从减去1 Pos的结果获得从零开始的偏移SendMessage和TMemo.SelStart。
 

相关阅读 >>

Delphi 内存管理[3]

Delphi seek函数中参数说明

Delphi之format函数

Delphi 自带rest调试工具 restdebugger 用法

Delphi 在线程中运行窗体

Delphi格式化输出函数

Delphi unigui 路径

Delphi datasnap 的连接事件顺序图

Delphi 判断一个颜色是否是亮色

Delphi判断字符是否是汉字

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