Delphi统计文本框内容的行列数.rar下载

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) ; 　　需要完整实例，请下载源码。