如何替换字符串中的某一个字符

Question

举例来说：有‘0000’字符串，我要把第二位替换为‘1’，即字符串变为‘0100’，有什么好办法，请大家赐教。

Answer 1

copy(s,1,i-1)+str+copy(s,i+1,length(s)-i)

Answer 2

var
  s: string;
begin
  s:= '0000';
  ...  s[2]:= 1; 字符串本身是数组直接修改就行了
  ....

Answer 3

function tihuan(var i:integer; var Str:integer):string;
//i--位数  str字串var
L:integer;--串长度
begin
  l:=length(str);
  result:=copy(str,1,i-1)+str+copy(str,i+1,L-i);end;
使用方法：   S:=tihuan(2,0100);

Answer 4

如果要修改库的话，直接修改算了，
stuff(field,index,count,nowvalue) 

Answer 5

function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
说明 不区分大小写
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);呵呵；应该说完全符合楼主要求吧；^_^；