替换TStrings

procedure ReplaceStrToStrings(AStrings:TStrings;sToken,sRep:string);

var

i,j:integer;

begin

for i:=0 to AStrings.count-1 do

begin

s:=AStrings[i];

j:=Pos(sToken,s);

if (j>0) then

begin

s:=Copy(s,1,j-1)+sRep+Copy(s,j+length(sToken),length(s)-(j+length(sToken)));

AStrings[i] :=s;

end;

end;

end;