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

Delphi统计文本框内容的行列数，统计出文字有多少行、多少列，具体请看下面的代码：//得到行号和列号　　procedureTForm1.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:=Num1;//当前行　　Label3.Caption:=&