Delphi 获取不重复随机数《LceMeaning》

川长思鸟来 2021-12-17 02:23 317阅读 0赞

uses
      ShareMem;
    
    
    type
      TArray = array of Integer;
    
    
    function CreateRandom(ResultCount, MaxInt: Integer) : TArray;
    var                 // 生成个数     最大数值
      I, N, count : Integer;                 
      a : array of Integer;
      label L;
    begin
      Randomize;
      SetLength(a,ResultCount);
      for I := 0 to ResultCount -1 do
        begin
          L:
          N := Random(MaxInt);
          for count := 0 to I do
          begin
            if a[count] = N then
            begin
              goto L;
            end;
          end;
          a[i] := N;
          //tmpLst.Add(IntToStr(N));
          Result[i] := n;
        end;
    end;
    
    
    //调用方法
    procedure TForm1.btn1Click(Sender: TObject);
    var
      MyArr : TArray;
      I : Integer;
      s : string;
    begin
      SetLength(MyArr, ResultCount); 
      try
        MyArr := CreateRandom(StrToInt(edt3.Text),lst1.Items.Count);
        for I := 0 to StrToInt(edt3.Text)-1 do
          s := s + lst1.Items[Myarr[i]] + ',';
      except  
    
      end; 
        Memo2.Text := S;
    end;

以上经过XE5编译通过， 如果不引用ShareMem，运行时可能会弹错。

转载于:https://www.cnblogs.com/LceMeaning/p/3685873.html

发表评论取消回复

表情：

评论列表（有 0 条评论，317人围观）

还没有评论，来说两句吧...

相关阅读

相关 java 随机数指定范围不重复,Java实现：生成特定区间不重复随机数

这个是最常用的技术之一。程序员希望通过随机数的方式来处理众多的业务逻辑，测试过程中也希望通过随机数的方式生成包含大量数字的测试用例。问题往往类似于：如何随机生成 1~1

青旅半醒/ 2023年01月13日 09:20/ 0 赞/ 229 阅读

相关简单的生成不重复随机数

import java.util.Arrays; class T \{ public static void main(String\[\] args) \

快来打我*/ 2022年08月03日 23:44/ 0 赞/ 207 阅读

相关不重复随机数列生成算法

转载自：http://www.cnblogs.com/eaglet/archive/2011/01/17/1937083.html 本文将讲述一个高效的不重复随机数列的

一时失言乱红尘/ 2022年06月15日 01:11/ 0 赞/ 208 阅读

相关不重复随机数优化算法

//不重复随机数优化算法 public static void test()\{ int\[\]a=new int\[10\]; for(int i=1;i<=

╰+攻爆jí腚メ/ 2022年06月14日 07:14/ 0 赞/ 143 阅读

相关 java获取不重复随机数

package com.huateng.engine; import java.util.ArrayList; import java.uti

╰半夏微凉°/ 2022年05月14日 01:40/ 0 赞/ 184 阅读

相关 Delphi 语句块《LceMeaning》

//输入事件中将字母设置为大写 if Key in ['a'..'z'] then begin Key := Upper

Love The Way You Lie/ 2021年12月17日 02:25/ 0 赞/ 199 阅读

相关 Delphi XE2 从Excel导入到数据库《LceMeaning》

以下代码经本人在Delphi XE2 下通过编译 uses Comobj; procedure EXCEL1Click(Sender:

╰半夏微凉°/ 2021年12月17日 02:23/ 0 赞/ 317 阅读

相关 Delphi 获取不重复随机数《LceMeaning》

uses ShareMem; type TArray = array of Integer;

川长思鸟来/ 2021年12月17日 02:23/ 0 赞/ 318 阅读

相关 C# Random 生成不重复随机数

转自[C\ Random 生成不重复随机数][C_ Random] <table> <tbody> <tr> <td> <p><a href="htt

刺骨的言语ヽ痛彻心扉/ 2021年11月23日 14:34/ 0 赞/ 391 阅读

相关 ASP生成随机数 ASP生成不重复随机数

ASP生成随机数： andomize '纯随机,不重复 Response.write Int((999999999 Rnd) + 111111111) '

Bertha 。/ 2021年11月04日 17:04/ 0 赞/ 525 阅读