如果我想删除一个字符串的某一个字符怎么做？？？？

Question

StringReplace('111111删除删除11删除删除删除删除11删除删除11111', '删除', '', [rfReplaceAll]);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := StringReplace('111111删除删除11删除删除删除删除11删除删除11111',
    '删除', '', [rfReplaceAll]);
end;

Answer 2

Str :='123456789'; //删第五个；
i:=5;
Str1 := Copy (Str,0,i-1);  //Str1='1234'
Str2 := Copy (Str,i,Length(Str)-i);  //Str2='6789'
Str := Str1+Str2;  //Str='12346789'

Answer 3

例如：s:string;s:='abck'
如果要删除 s 中的 b 像这样搞：
s:=copy(s,1,1)+copy(s,3,lenght(s)-2);
如果要删除第i个字符，像这样搞：
s:=copy(s,1,i-1)+copy(s,i+1,length(s)-i);
　

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s:= 'DelphiX';
  Delete(s, length(s), 1);
  ShowMessage(s);
end;