2009-04-22 13:52
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; const S:原来的字符串 OldPattern：需要被替换的部分 NewPattern：替换后的部分 Flags:替换标识，定义如下： type TReplaceFlags = set of (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.