SOS.告急！！！！！！！！！极待解决！！！！！！！ ( 积分: 100 )

这段代码实现功能是：从含有M条Item的ProIDListBox中随机抽取各不相同的N条Items；比如200条，但我在程序执行过程中会发现仍有重复的Item，
While RandomListBox.Items.Count<RandomRzSpinEdit.IntValue Do
begin
if RandomListBox.Items.Count=0 then
RandomListBox.items.Add(ProIDListBox.Items.Strings[random(ProNum)]);
For i:=0 To RandomListBox.Items.Count-1 Do
begin
Str:=ProIDListBox.Items.Strings[random(ProNum)];
if RandomListBox.Items.IndexOf(Str)>0 then
continue
else
RandomListBox.items.Add(Str);
end;

end;

这段代码实现功能是：从含有M条Item的ProIDListBox中随机抽取各不相同的N条Items；比如200条，但我在程序执行过程中会发现仍有重复的Item，
While RandomListBox.Items.Count<RandomRzSpinEdit.IntValue Do
begin
if RandomListBox.Items.Count=0 then
RandomListBox.items.Add(ProIDListBox.Items.Strings[random(ProNum)]);
For i:=0 To RandomListBox.Items.Count-1 Do
begin
Str:=ProIDListBox.Items.Strings[random(ProNum)];
if RandomListBox.Items.IndexOf(Str)>0 then
continue
else
RandomListBox.items.Add(Str);
end;

end;

if RandomListBox.Items.IndexOf(Str)>0 then
－－>if RandomListBox.Items.IndexOf(Str)>=0 then

if RandomListBox.Items.IndexOf(Str)>0 then
continue
else
RandomListBox.items.Add(Str);
改为
if RandomListBox.Items.IndexOf(Str) = -1 then
RandomListBox.items.Add(Str);

谢谢，十分感谢各位！！！！！！！

既然感谢还不结贴呀？[]