怎样删除String中的某个字符？（如把"$6655726"中的"$"去掉，或把"255 255 0"中第二个空格去掉）？？

Question

怎样删除String中的某个字符？（如把"$6655726"中的"$"去掉，或把"255 255 0"中第二个空格去掉）？？
---------------------------------------------------------------------
麻烦大家给我写一下代码
不胜感激！！！！！！！！！！

Answer 1

第一个
str:='$6655726';
str:=stringreplace(str,'$','',[]);第二个
str:='255 255 0';
j:=0;str1:='';
for i:=1 to length(str) do
begin
if str[i]=' ' then
j:=j+1;
  if j<>2 then
  begin
    str1:=str1+str[i];
  end
  else
  j:=3;end;

Answer 2

简单
str:=copy('$sdsdsdsd',2,length('$sdsdsdsd'));

Answer 3

第一个问题:
function TForm1.StrCut(S:String;strSub:String):String;//strSub只有一个字符
var
     I:Integer;
begin
     for I:=1 to Length(S) do
        if S[I]=strSub then Delete(S,I,1);
     Result:=S;
end;procedure TForm1.SpeedButtonClick(Sender: TObject);
begin
     showmessage(strCut('$sdfsd$hhj$123','$'));
end;第二个问题:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
    I,J:Integer;
    Str:String;
begin
      Str:='ABC 123 Sum';
      J:=0;
      for I:=1 to Length(Str) do
      begin
           if Str[I]=#32 then Inc(J);
           if J=2 then Break;
      end;
      Delete(Str,I,1);
      ShowMessage(Str);
end;