如题
按下按钮会产生随机数字，然后写入一侧的listbox中去，怎么才能使已经选出来的数字不参与随机数字生成？
谢谢………

这个可以找我，扣扣775420425

我这有现成的

var
lst:TStringList;
i:Integer;
begin
lst := TStringList.Create;
try
for i:= 1 to 37 do lst.add(IntToStr(i));
Randomize;
while ListBox1.Items.Count<7 do begin
i := Random(lst.Count-1)+1;
if i>=0 then begin
ListBox1.Itmes.add(lst[i]);
lst.delete(i);
end;
end;
finally
lst.Free;
end;
end;
随手写了一个;37选7;
以后这种问题还是尽量少问吧,没什么技术,纯粹就是简单的思路问题.看着让人觉得你们特别的懒;

膜拜大神