请教个算法问题？

Question

我在memo放了10行身份证号码，每行一个
怎么知道这10行记录不是重复的呢？
就是说，如何检测出重复的号码？
多谢了，
小弟初学，分少
望高手不要见怪！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  str: TStringList;
begin
  str := TStringList.Create;
  try
    for i:=0 to Memo1.Lines.Count-1 do
    begin
      if str.IndexOf(Memo1.Lines[i])=-1 then
        str.Add(memo1.Lines[i])
      else
        showmessage(memo1.lines[i]+'重复');
    end;
    for i:=0 to str.Count-1 do showmessage(str[i]);
  finally
    str.free;
  end;
end;