各位高手,小人我前来求助,如何实现十个固定数据的乱序的输出,而且每次的输出结果都不一样?希望各位能给出代码,谢谢!
解决方案 »
- 设置为rowselect,但是有一列除外!
- formula one的问题
- PDF虚抑打印的问题。
- 关于图片打印问题,向各位请教
- 请教怎样将delphi6中的数据转换成word文档形式打印出,有这方面的控件不。
- 关于日历控件的一个小问题,即刻给分
- AdoQuery动态参数设定的问题
- 送分100分谁知道现在流行的软件有哪些用delphi,哪些用vc++,哪些用vb,用哪种多开发的多????到底谁功能强大~!!!
- TSpeedButton的Enable := False后不显示按钮图片了?
- delphi里如何获得汉字拼音码
- 各位如何把excel 文件导入到数据库中。
- xywhx(xywhx)进来拿分(3)
const s : array[0..9] of Integer = (11,12,13,14,15,16,17,18,19,20);
var i,j :integer;
ss :String;
begin
Randomize;
for i := 1 to 10 do
begin
repeat
j := Random(10);
until (Pos(IntToStr(s[j]),ss) <= 0 ); ss := ss+IntToStr(s[j]) + ',';
end;
end;
var i,j :integer;
ss :String;N:integer=10;
begin
for i := 1 to 10 do
begin
repeat
Randomize;
j := Random(N);
delete(s1[j-1]);//自定义
dec(N);
until (Pos(IntToStr(s[j]),ss) <= 0 ); ss := ss+IntToStr(s[j]) + ',';
end;
end;