procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1; ShowMessage(IntToStr(i)); end;
procedure TForm1.Button1Click(Sender: TObject); var i:Integer; begin i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1; ShowMessage(IntToStr(i)); end;