5,388
社区成员
发帖
与我相关
我的任务
分享如何替换字符串中的某一个字符
举例来说：有‘0000’字符串，我要把第二位替换为‘1’，即字符串变为‘0100’，有什么好办法，请大家赐教。
...全文
请发表友善的回复…
发表回复
pchaos 2003-10-10
- 打赏
- 举报
学习
47522341 2003-10-09
- 打赏
- 举报
function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
说明 不区分大小写
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
呵呵；应该说完全符合楼主要求吧；^_^；
功能 返回字符串AText中用子串AFromText替换成子串AToText的结果
说明 不区分大小写
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
呵呵；应该说完全符合楼主要求吧；^_^；
Dphiwarrior 2003-10-09
- 打赏
- 举报
如果要修改库的话，直接修改算了，
stuff(field,index,count,nowvalue)
stuff(field,index,count,nowvalue)
tongki 2003-10-09
- 打赏
- 举报
耙子，唉！
tongki 2003-10-09
- 打赏
- 举报
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);
//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);
WuLoveXue 2003-10-09
- 打赏
- 举报
把你要替换掉部分的前面和后面的字符串截取出来，然后加上你要替换的字符串就可以了！
耙子 2003-10-09
- 打赏
- 举报
var
s: string;
begin
s:= '0000';
...
s[2]:= 1; 字符串本身是数组直接修改就行了
....
s: string;
begin
s:= '0000';
...
s[2]:= 1; 字符串本身是数组直接修改就行了
....
sundayzhao 2003-10-09
- 打赏
- 举报
copy(s,1,i-1)+str+copy(s,i+1,length(s)-i)
