delphi如何遍历字符串——Delphi字符串长度

最近的项目需要处理列表集合中的重复值，大多数使用两种方法。一个是遍历列表集合进行判断，然后分配给其他列表集合，一个是分配给集合集合集合，然后返回到列表集合。

但是赋给set集合后，由于set集合是无序的，原先的顺序就打乱了。所以我又想着能不能用set的特性进行去重又不打乱顺序呢？

试了一下，也是可以的，几种方法在不同情况下都有各自的优势。现在将代码写出来，比较一下。

//set集合去重，不打乱顺序

public static void main(String[] args){

List<String> list = new ArrayList<String>();

li("aaa");

li("bbb");

li("aaa");

li("aba");

li("aaa");

Set set = new HashSet();

List newList = new ArrayList();

for (String cd:list) {

i(cd)){

newLi(cd);

}

}

Sy( "去重后的集合： " + newList);

}

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18

//遍历后判断赋给另一个list集合

public static void main(String[] args){

List<String> list = new ArrayList<String>();

li("aaa");

li("bbb");

li("aaa");

li("aba");

li("aaa");

List<String> newList = new ArrayList<String>();

for (String cd:list) {

if(!newLi(cd)){

newLi(cd);

}

}

Sy( "去重后的集合： " + newList);

}

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17

//set去重

public static void main(String[] args){

List<String> list = new ArrayList<String>();

li("aaa");

li("bbb");

li("aaa");

li("aba");

li("aaa");

Set set = new HashSet();

List newList = new ArrayList();

(list);

newLiAll(set);

Sy( "去重后的集合： " + newList);

}

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16

//set去重(缩减为一行)

public static void main(String[] args){

List<String> list = new ArrayList<String>();

li("aaa");

li("bbb");

li("aaa");

li("aba");

li("aaa");

List newList = new ArrayList(new HashSet(list));

Sy( "去重后的集合： " + newList);

}

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13

hashset不进行排序，还有一种方法是用treeset，去重并且按照自然顺序排列，将hashset改为treeset就可以了。（原本的顺序是改变的，只是按照字母表顺序排列而已）

//去重并且按照自然顺序排列

List newList = new ArrayList(new TreeSet(list));