文件名称：Delphi统计文本框内容的行列数.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-07-30 05:44:14
Delphi源码-字符处理
Delphi统计文本框内容的行列数，统计出文字有多少行、多少列，具体请看下面的代码：//得到行号和列号 procedure TForm1.Button6Click(Sender: TObject); 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) ; 需要完整实例，请下载源码。
【文件预览】：
codesc.net
----00101()
--------U0011.dcu(5KB)
--------00101.txt(1KB)
--------P001.dpr(184B)
--------U0011.dfm(2KB)
--------P001.dof(1KB)
--------U0011.~df(2KB)
--------U0011.pas(1KB)
--------P001.res(876B)
--------U0011.~pa(1KB)
--------P001.cfg(325B)