例如:teditbox 控件txtname,txtname.text="你好中国"
我调用一个函数后Add(2,'啊')
,实现txtname.text="你好啊中国"memo控件tmemo1一样,不过memo有caretpos属性

解决方案 »

  1.   

    string = edit.caption
    string.add(2,'啊')
    edit.caption = string
      

  2.   

    你先把caption取出来,然后处理取出来的数据,再赋回去,处理之前要判断caption的长度是否>=你要添加的位置,如不需要判断,只能中间加空格了
      

  3.   

    用Insert(Source: string; var S: string; Index: Integer)
    Delphi标准函数
      

  4.   

    光标位置是 SelStart 。