StringList存入时忽略相同元素

//避免重复值
var
  List: TStringList;
begin
  List := TStringList.Create;
  List.Add('aaa');
  List.Sorted := True; //需要先指定排序
  List.Duplicates := dupIgnore; //如有重复值则放弃
  List.Add('aaa0');
  List.add('aaa');
  ShowMessage(List.Text); //aaa
  //Duplicates有3个可选值:
  //dupIgnore放弃;
  //dupAccept结束;
  //dupError提示错误.
  List.Free;
end;