delphi Memo 的当前行、当前列与当前字符

本文整理自网络，侵删。

 procedure TForm1.Memo1Click(Sender: TObject);
begin
Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);
end;

//用 API 实现
procedure TForm1.Memo1Click(Sender: TObject);
var
LineY,LineX: Integer;
begin
LineY := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
LineX := SendMessage(Memo1.Handle,EM_LINEINDEX,LineY,0);
Text := '当前行：' + IntToStr(LineY) + '; ' +                  //0开始
          '当前列：' + IntToStr(Memo1.SelStart - LineX) + '; ' +   //0开始
          '当前字符：' + IntToStr(Memo1.SelStart) + '. ';          //包括#13#10
end; 

相关阅读 >>

Delphi版inf方式加载驱动

Delphi 提取标签之间的字符串（重复标签）

Delphi xe android 调试错误：connection closed gracefully

Delphi 使用 lockbox 做加密解密

Delphixe 如何调用stringtojstring

Delphi 封装的tidhttp get post 请求

Delphi tdictionary 简单用法

Delphi 阿拉伯数字转中文汉字数字

Delphi字符串隐藏一法

Delphi setpriorityclass 设置当前程序的优先级

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

转载请注明出处：木庄网络博客 » delphi Memo 的当前行、当前列与当前字符