怎样读出MEMO控件的当前值

　　使用MEMO控件的em_LineFromChar属性,程序如下:

　　procedure TMyForm.BitBtn1Click(Sender: TObject);
var
iLine : Integer ;
begin
iLine := Memo1.Perform(em_LineFromChar, $FFFF, 0);
{ Note: 第一行为 0 }
messageDlg(Line Number: + IntToStr(iLine), mtInformation,
[mbOK], 0 ) ;
end;