求助!! 急 !!如何从一堆号码中取出不重复的号码.(100分)

数据组A
号码牌 数量
1 3334
2 3334
3 3334
6 3334
7 3334
14 3334
28 3334
47 3334
4 10832
17 10832
46 10832
5 26832

数据组B
号码牌 数量
8 3334
11 3334
15 3334
16 3334
18 3334
22 3334
23 3334
24 3334
27 3334
29 3334
30 3334
34 3334
35 3334
37 3334
39 3334
40 3334
42 3334
44 3334
45 3334
48 3334
51 3334
12 6364
19 6364
21 6364
26 6364
32 6364
33 6364
38 6364
9 8750
20 8750
25 8750
31 8750
36 8750
41 8750
50 8750
10 22364
43 22364
49 22364
52 22364
13 24750

我现在的要求是:
从数据组A中 取出 1 个 号码牌
从数据组B中 取出 3 个 号码牌

如何从中取出 70000组不重复的号码牌来.
1每组共四个号码 ,这四个号码 相互间也不能相同
2如: 4 , 11, 16 ,39 与 4 , 16, 11 ,39 视为重复,因为它个只是顺序不同,但是还是那几个号码.

这完成是个算法问题，想想你就做到了

就是做了两天还没有做到.才问的.

将A读入 Listbox1 将B读入 ListBox2

for i = 0 to ListBox1.item.count -1 then begin
SA :=ListBox.item.String;
用一个函数判断 SA 是否用超过了自己所充许的使用个数,如果大于就 continue
for i1 := 0 to ListBox2.item.count -1 then begin
sB1:= Listbox.item.string[i1];
同时也判断 SA
同上一个,判断 SB1
for i2 := 0 to ListBox2.item.count -1 then begin
SB2:=ListBox2.item.string[i2];
同上,
增加对SB2的判断
同时再决断 SB1 <> SB2 ,否则也continue;
for i3 ...................略

记录第一个数字用的个数
将 SA,SB1,SB2,SB3 插入数据库
end;
end;
end;
end;

具体我作好. 找不出 7万组不同的来.只能找到:63895组不同的组来.

原理己经说了,我想应该明白了吧.如果还不明白.可以联系 QQ:58580405

多人接受答案了。