delphi 获取Memo的行数与列数-木庄网络博客

本文整理自网络，侵删。

 var
Hang,Lie,Num,CharsLine:longint;
begin
Num:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
CharsLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,Num,0);
Hang:=Num+1;//当前行
Label3.Caption :='行数= '+IntToStr(Hang) ;
Lie:=(Memo1.SelStart-CharsLine)+1;//当前列
Label4.Caption :='列数= '+IntToStr(Lie) ;

Delphi 字符串连接

Delphi中的copy，delete，pos和leftstr,rightstr的用法

Delphi 获取memo文本光标的位置

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章文件

Delphi中实现变长函数笔记

Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出

Delphi 在unicodestring中使用utf-8字符串

Delphi 无法打不开读取文件名有逗号的文件

Delphi 如何快速从列表框tlistbox中删除重复项

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

转载请注明出处：木庄网络博客 » delphi 获取Memo的行数与列数