关于TXT查找并删除重复数据的有关问题.大家帮小弟我看看

关于TXT查找并删除重复数据的问题.大家帮我看看

文本内容如下
aaaa
bbbb
ccc
ddd
aaaa
eee
fff
gggg

怎么样来删除重复的呢~~头疼~

[解决办法]
sorry没看见s.sort
但即便如此也不推荐在i从s的count循环中对s进行删除

其实也可以这样写
procedure TForm1.Button1Click(Sender: TObject);
var
s,b: TStringList;
I: Integer;
begin
s := TStringList.Create;
b := TStringList.Create;

....
for i := s.Count - 1 downto 1 do
if b.IndexOf(s[i]) <0 then
b.Add(s[i]);
...
b.SaveToFile
b.free;
s.free;
end;

[解决办法]
简单问题复杂化了

s := TStringList.Create;
s.Duplicates := dupIgnore;
s.Sorted := True;
try
s.LoadFromFile(XXXX);
finally
Freeandnil(s);
end;