我怎样取得RichEdit中内容的每一行的行数?

asdfasdfasdfasdf
bsdfasdfasdfasdf
csdfasdfasdfasdfasd
当我将光标放在bsdfasdfasdfasdf这一行时,取出的值是2

解决方案 »

  1.   

    在button的onclick事件中写入下列代码。
      var
      CurrentLine:Integer;
      begin
      CurrentLine:=EditorPerform(em_ LineFromChar,SFFFF,0);
      ApplicationMessageBox(PChar(′当前行号是′+IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
      end;
    注意:第一行的行号为零。
      

  2.   

    用RichedEdit1.CaretPos.y也可以得到
      

  3.   

    "当我将光标放在bsdfasdfasdfasdf这一行时,取出的值是2"对的,因为第一行行数是0, 行数是从0开始数的。
      

  4.   

    edit1.Text := richedit1.Lines.Strings[0];
      edit2.Text := richedit1.Lines.Strings[1];
      edit3.Text := richedit1.Lines.Strings[2];