怎样读出MEMO控件的当前值

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

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