Delphi中StringReplace函数的使用

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

const S:原来的字符串 OldPattern：需要被替换的部分 NewPattern：替换后的部分 Flags:替换标识，

定义如下： type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);

rfReplaceAll：全部替换

rfIgnoreCase：忽略大小写

具体用法如下： StringReplace(原来的字符串，需要被替换的部分，替换后的部分，[rfReplaceAll])

例子：

procedure TForm1.Button1Click(Sender: TObject);

var s:string;

begin

s:=edit1.Text;

s:=StringReplace(S,#32,'',[rfReplaceAll]);

s:=StringReplace(S,#9,'',[rfReplaceAll]);

edit1.Text:=s;

end;

end.