请问在MEMO中光标处插入字符怎么作
感谢 问题点数：20、回复次数：4Top
1 楼LXJ2001（lxj）回复于 2002-03-12 17:54:41 得分 20
var
s: string;
begin
s := memo1.Text;
Insert('insert string', s, memo1.SelStart + 1);
memo1.Text := s;
end;Top
2 楼kevin_gao（困了！累了！睡觉了！）回复于 2002-03-12 18:01:05 得分 0
uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText:='mystring';
Memo1.PasteFromClipboard;
end;Top
3 楼prometheusphinx（白日梦）回复于 2002-03-12 18:09:59 得分 0
用剪贴板不好，这样会把它原来的内容冲掉，可以用
Memo1.Perform(EM_REPLACESEL, Integer(True), Integer(PChar(Edit1.Text)));Top
4 楼qiubolecn（来自差生市）回复于 2002-03-12 18:13:13 得分 0
memo1.Sellength :=0;
Memo1.seltext := ' 要插入的字符';Top
