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 捕捉全局异常错误的方法

Delphi xe-xe3下最简单的获取硬盘序列号

Delphi dblookupcombobox组件的使用方法

Delphi实现网卡状态检测

Delphi在字符串中删除指定字符串

Delphi 连接dbf数据

Delphi android实例-trectangle加载图片(xe8+小米2)

Delphi中interface接口的使用方法

Delphi api �c multibytetowidechar的用法

Delphi 字符串连接

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

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