TRichEdit.Lines的Insert方法怎么使用？（在线）

Question

怎样向richedit中，在当前位置出插入一段文字？

Answer 1

insert是在指定的行索引处插入一行比如richedit1.lines.Insert(1,'aaa');要想在光标的位置插入字符串是不是要自己写啊

Answer 2

RichEdit1.Lines.Add('adfsa');
  RichEdit1.Lines.Insert(2, 'po');
  with RichEdit1 do
  begin
    SelStart := 5;
    SelLength := 0;
    SelText := '35';
  end;

Answer 3

//取得光標位置
procedure GetEditColRow( CustEdit: TCustomEdit; var Col, Row: Integer );
begin
   Row := SendMessage(CustEdit.Handle, EM_LINEFROMCHAR, CustEdit.SelStart, 0);
   Col := Edit.SelStart - SendMessage(CustEdit.Handle, EM_LINEINDEX, -1, 0);
end;

Answer 4

//上面有點問題
procedure TForm1.GetEditColRow(CustEdit: TCustomEdit; var Col,
  Row: Integer);
begin
   Row := SendMessage(CustEdit.Handle, EM_LINEFROMCHAR, CustEdit.SelStart, 0);
   Col := CustEdit.SelStart - SendMessage(CustEdit.Handle, EM_LINEINDEX, -1, 0);
end;

Answer 5

取出当前位置后怎么在当前位置插入文件？insert好象插不进去