如何取得Memo的行和列

新建一個應用，在窗體Form1上添加兩個Tlabel組件名為Label1，Label2；

添加兩個Tbutton組件名為Button1，Button2；添加一個Tmemo組件名為Memo1。

然後在代碼編輯器中添加以下代碼。

void __fastcall TForm1::Button1Click(Tobject ＊Sender)
　　 {
　　 Label1→Caption=SendMessage(Memo1→Handle,EM_LINEFROMCHAR,－1,0)＋1;
　　 }
　　 void __fastcall TForm1::Button2Click(Tobject ＊Sender)
　　 {
　　 Label2→Caption=Memo1→SelStart－SendMessage(Memo1→Handle,EM_LINEINDEX,－1,0)＋1;
　　 }

這種方法同樣適用於RichEdit。