求插入子串的函数：例如在原串'acdafd' 的每个‘a’的前面加入'ss'

Question

例如在原串'acdafd' 的每个‘a’的前面加入'ss'，怎么做？

Answer 1

var
  sum: string;  
for i := 1 to Length(Str);  //str：你的字符串
begin
  if Str[i] = 'a' then
    sum := sum+'ss'+Str[i]
  else sum := sum + Str[i];
end;

Answer 2

AnsiReplaceStr('acdafd','a','ssa')
一句搞定

Answer 3

借花献楼主var s1:string;
begin
    s1:= 'acdafd' ;
    s1 := AnsiReplaceStr(s1,'a','ssa') ;
    edit1.text := s1;
end;

Answer 4

我用的Delphi5，帮助里找不到这个函数，是不是delphi5没有这个函数？

Answer 5

var s1:string;
begin
    s1:= 'acdafd' ;
    edit1.text := StringReplace(s1,'a','ssa', [rfReplaceAll]) ;
end;

Answer 6

用 ：  StringReplace('acdafd','a','ssa',[rfReplaceAll]+[rfIgnoreCase]);
  
  [rfReplaceAll]代表替换所有；
  [rfIgnoreCase]代表不区分大小写。