TStringList 默认去掉重复的字符串

分割的时候，会自动去掉重复的字符串，设置了 Duplicates := dupAccept;就不去掉重复


LStrList := TStringList.Create;

try

LStrList.Delimiter := '%';

LStrList.StrictDelimiter := True;

LStrList.Duplicates := dupAccept;

LStrList.DelimitedText := LTmpUrl;


for I := 0 to LStrList.Count - 1 do

begin

LTmpUrl := LStrList.Strings[I];

if Length(LTmpUrl) = 2 then

LTmpUrl := Char(StrToInt('$' + LTmpUrl));



LRetUrl := LRetUrl + LTmpUrl;

end;

finally

LStrList.Free;

end;