求一算法!

Question

一个
StringList中含有以下数据a
b
c
d
e
a写一个算法判断其中是否有重复的数据

Answer 1

TStringList本身就可判;
procedure TForm1.Button1Click(Sender: TObject);
var
  t:tstringlist;
begin
  t:=tstringlist.Create;
  t.Duplicates:=dupError;
  t.Sorted:=true;
  try
  t.add('a');
  t.add('b');
  t.add('c');
  t.add('d');
  t.add('e');
  t.add('a');
  except
    ShowMessage('数据重复!');
  end;
end;

Answer 2

哦?又学一招,其实我不是说TStringList,嘿嘿!只是一举例而已!
要不换成数组! ^_^

Answer 3

数组跟 StringList 有什么区别, 最终都得要遍历其它所有元素