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 jpg和bitmap互转转换的方法

Delphi 调用外部 dll 中的函数(1. 早绑定)

Delphi tstringlist 排序 customsort

Delphi ini文件操作用法

Delphi 代码查询一个json ip 地址的归属地

Delphi 数组与子界

Delphi检测当前鼠标点击处是否在指定控件内部

Delphi 如何检测你的电脑日期或时间的变化

Delphi2007-Delphi2010 程序不出现在任务栏的方法

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

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