算法问题，欢迎大家一起来帮忙讨论解决

Question

str:='33+tg001+44+tg004';//(这里是一个字符串--也就是公式)
for i:=1 to length(str) do
 begin
 if str[i]<>'t' then
    //我想在这做其它的:把tg001之类的替换成数据；
    str1:=str1+str[i]
  else begin
    str1:=str1+copy(str,i,4) ;//4是t后面的长度
    i:=i+5;(这里是不行的)
  end 
 end;  
showmessage(str1);其实要显示的也是'33+tg001+44+tg004'；
或其它的办法也行，谢谢各位!

Answer 1

写错了：str1:=str1+copy(str,i,5) ;//5是tg001后面的长度

Answer 2

Str1 := StringReplace(Str, 'tg001', 'AAAAA', [rfReplaceAll]);

Answer 3

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;