TStringList 默认去掉重复的字符串

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;