如何取得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。