说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

怎样读出MEMO控件的当前值-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
怎样读出MEMO控件的当前值-Delphi资料

使用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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘