delphi字符串列表(TStrings)中字符串替换函数代码

delphi字符串列表(TStrings)中字符串替换函数代码2009年11月04日星期三09:532009年04月12日下午03:47delphi字符串列表(TStrings)中字符串替换函数代码

━━━━━━━━━━━━━━━━━━━━━━━━━━

//TStrings中的字符串替换，在win xp, delphi 7下测试通过

//参数和StringReplace的参数相同，除了第一个参数为TStrings和返回值，第一个参数即作为输入参数，也作为输出参数

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 SplitString(Source, Deli: string ): TStringList;stdcall;

var

EndOfCurrentString: byte;

StringList:TStringList;

begin

StringList:=TStringList.Create;

while Pos(Deli, Source)>0 do

begin

EndOfCurrentString := Pos(Deli, Source);

StringList.add(Copy(Source, 1, EndOfCurrentString - 1));

Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);

end;

Result := StringList;

StringList.Add(source);

end;