delphi Memo1 统计行 列

本文整理自网络，侵删。

 
procedure TForm1.Memo1Change(Sender: TObject);
var

X, Y: LongInt;

begin

Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);

X := Memo1.Perform(EM_LINEINDEX, Y, 0);

inc(Y);

X := Memo1.SelStart - X + 1;

Form1.Caption := '列 X = ' + IntToStr(X) + ' : ' + '行 Y = ' + IntToStr(Y);


end;
 

相关阅读 >>

Delphi tfilestream 的读写 合并文件

Delphi 10.3 断点调试相关快捷键

Delphi 控制iis，检测、增加、删除虚拟目录

Delphi 检测应用程序是否已停止响应

Delphi 安卓程序如何读取外部配置文件

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

Delphi中的字符串比较(comparestr)

Delphi下的字符串分隔函数的一种用法

Delphi idpop3收邮件

Delphi 获取时间日期

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

转载请注明出处：木庄网络博客 » delphi Memo1 统计行 列