简单问题：如何把字符串插到memo中光标所停留的位置？

Question

先获取当前光标位置，再插入字符串。有正确答案马上结贴，谢谢各位帮忙！

Answer 1

uses ClipBrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClipBoard.AsText := 'abc';
  showmessage(inttostr(Memo1.SelStart));//光标位置
  Memo1.PasteFromClipboard;
end;

Answer 2

谢谢楼上。
不用Clipboard粘贴不行么？Memo中没有可以直接在光标处插入字符的方法么？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := Copy(Memo1.Text,1,Memo1.SelStart) + 'OK' + Copy(Memo1.Text,Memo1.SelStart+1,MaxInt);
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.SelText := '多种方法，任选';
end;

Answer 5

楼主对此问题还有什么疑问吗？我对Memo没有特殊研究，所以看到题目就试验，所以刚开始给你的方法比较繁。