在EDIT控件光标位置插入文本

var
    s:string;
begin
    s:=Edit1.Text;
    insert( '1 ',   S,Edit1.SelStart+1);
    Edit1.text:=s;
end;

posted @ 2011-10-04 22:31  星星的学习小志  阅读(457)  评论(0)  编辑  收藏  举报