delphi中间件

摘要： //替换字符串列表中字符串procedure StringsReplace(var S : TStrings; OldPattern, NewPattern: string; Flags: TReplaceFlags);var i : integer; tmpstr : string;begin for i := 0 to S.Count -1 do begin tmpstr := S[i]; s[i] := StringReplace(tmpstr, OldPattern, NewPattern, Flags); end;end; //分割字符串，从网上搜索的也很好使function Spl 阅读全文