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