//替換字符串列表中字符串

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;

//分割字符串，從網(wǎng)上搜索的也很好使
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;

總結(jié)

以上是生活随笔為你收集整理的替换字符串列表中字符串的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。