高分求救！！如何实现在字符串中去掉指定字符？？？

Question

高分求救！！如何实现在字符串中去掉指定字符？？？

Answer 1

用stringreplace函数，将替换的字符串设置为'';

Answer 2

var
   s:string;
   len,i:integer;
begin
   s:=Edit1.text;
   len := length(s);
   for i=1 to len do
      if s[i]='a' then
         s := copy(s,1,i)+copy(s,i+1,len);
end;
我在这写的，可能有问题，如果有，你自己改改吧。意思应该对的吧

Answer 3

原字符串Str,欲去字符s
Str:=Copy(Str,1,Pos(s,Str)-1)+Copy(Str,Pos(s,Str)+1,Length(Str)-Pos(s,Str));
如果想去掉Str中所有的s，就要循环处理，
while Pos(s,Str)<>0 do
begin
  Str:=Copy(Str,1,Pos(s,Str)-1)+Copy(Str,Pos(s,Str)+1,Length(Str)-Pos(s,Str));
end;