如何实现随机从记录集中抽取若干条记录,但是已经被抽取的记录不会被再次收取? 参照http://www.csdn.net/expert/topic/411/411178.shtm 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 从100个数中抽出30个不重复的:var Flag: array [0..99] of boolean; Res: array [0..29] of byte; i, tmp: byte;begin for i:=0 to 29 do begin tmp:= round(rnd*100) + 1; while Flag[tmp] do tmp:= round(rnd*100) + 1; Flag[tmp]:= true; Res[i]:= tmp; end;end. 求解: access 阿拉伯文 乱码?怎么解决? 数据库用access,用什么方法使软件在局域网上运行? 如何使我在画布对象上画的图线在屏幕上保持呢? 请教一个类型转换的问题? 想问问大伙的看法 技术问题:如何实现远程关机? 请问能否在程序中让win2000进入休眠状态? 用Delphi实现串口通讯 Eof或Bof中有一个为真?ADOTable Delphi的有关菜单的Owner-draw 技术 请问各位:当登陆及序幕画面出现完进入主窗体以后,为何不能继续操作,光标一直处于运行状态 请教Sql语句
var
Flag: array [0..99] of boolean;
Res: array [0..29] of byte;
i, tmp: byte;
begin
for i:=0 to 29 do
begin
tmp:= round(rnd*100) + 1;
while Flag[tmp] do
tmp:= round(rnd*100) + 1;
Flag[tmp]:= true;
Res[i]:= tmp;
end;
end.