怎样读出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;