潇 潇洒哥 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-01 #1 我现在需要一个字符串替换函数，这个函数把一个字符串中，所有的 "http://news2" 更改为 “http://news” ,请问应该怎么样写了？真的不好意思，我太久太久没有写过程序了！！！
我现在需要一个字符串替换函数，这个函数把一个字符串中，所有的 "http://news2" 更改为 “http://news” ,请问应该怎么样写了？真的不好意思，我太久太久没有写过程序了！！！
Z zywcd Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-01 #2 tstr:= StringReplace('http://news2','http://news2', 'http://news',[rfReplaceAll]); function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
tstr:= StringReplace('http://news2','http://news2', 'http://news',[rfReplaceAll]); function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
B bluedyness Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-01 #3 uses StrUtils; AnsiReplaceStr(str, 'http://news2', 'http://news'); //str是"http://news2"所在的字符串， 注意上面的引用
uses StrUtils; AnsiReplaceStr(str, 'http://news2', 'http://news'); //str是"http://news2"所在的字符串， 注意上面的引用
E eonzhang Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-01 #5 uses StrUtils 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): string; 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 说明 区分大小写 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);
uses StrUtils 首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): string; 功能 返回字符串AText中用子串AFromText替换成子串AToText的结果 说明 区分大小写 参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);
