Delphi的字符串替换函数

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

rfReplaceAll：全部替换

rfIgnoreCase：忽略大小写

aStr := 'This is a book, not a pen!';

ShowMessage(StringReplace (aStr, 'a', 'two', []));//This is two book, not a pen!只替

注意最后一个参数[rfReplaceAll]，否则只替换一次

首部 function AnsiReplaceStr(const AText, AFromText, AToText: string):

string; $[StrUtils.pas

功能 返回字符串AText中用子串AFromText替换成子串AToText的结果

说明 区分大小写

参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags

例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);