使用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;
[ 查看全文 ]