delphi,去重,去字符串重复,自己写的,亲测可行,没任何第三方控件!