简单的字符串问题-----100分(100分)

  • 主题发起人 主题发起人 yp_shen
  • 开始时间 开始时间
Y

yp_shen

Unregistered / Unconfirmed
GUEST, unregistred user!
现有一个字符串中含有一个'_'字符,用什么函数把他替换成'/'字符?
低级问题,惭愧!惭愧!
 
Pascal 吗?
StringReplace(const S, OldPattern, NewPattern: string;
Flags: TReplaceFlags): string;
 
Delphi ?
请看看帮助文件!
 
Flags: TReplaceFlags怎么用?
 
function TWebModule1.replace(str,s1,s2:string;casesensitive:boolean):string;
var
i:integer;
s,t:string;
begin
s:='';
t:=str;
repeat
if casesensitive then i:=pos(s1,t) else i:=pos(lowercase(s1),lowercase(t));
if i>0 then
begin
s:=s+Copy(t,1,i-1)+s2;
t:=Copy(t,i+Length(s1),MaxInt);
end
else s:=s+t;
until i<=0;
result:=s;
end;
 
接受答案了.
 
后退
顶部