插入字符

Question

在一个多行文本中的2个字符中间插入EDIT里的内容,怎么实现?
 例如:
...................
.......ABC123......
...................
想把EDIT里的内容插在ABC后面.

Answer 1

把文本读到MEMO中
然后在MEMO中循环查找‘ABC’
查到则插入

Answer 2

For I:=1 to Length(Str) do begin
  if Str[i]='a' then begin
    if Str[i+1]='b' then begin
      sss:=Copy(Str,1,i)+Edit.text+Copy(Str,i+1,Length(str)-i);
      Break;
    end;
  end;
end;

Answer 3

insert(Edit.text,str1,pos('ABC',str1))//str1为你要被插入的string