delphi提取任意长度随机数

页面导航:首页 > 软件编程 > Delphi > delphi提取任意长度随机数

delphi提取任意长度随机数

来源: 作者: 时间:2016-01-18 15:41 【

设定随机数范围, 返回数组长度, 得到一组不重复的随机数[delphi] unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Std...
设定随机数范围, 返回数组长度, 得到一组不重复的随机数
 
 
[]  
unit Unit11;  
  
interface  
  
uses  
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, StdCtrls;  
  
type  
  TForm11 = class(TForm)  
    btn1: TButton;  
    procedure btn1Click(Sender: TObject);  
  private  
    //生成的随机数函数  
    function CreateRandom(const RangeStart, RangeEnd,  
      ResultCount: integer): Tarray<Integer>;  
    { Private declarations }  
  public  
    { Public declarations }  
  end;  
  
var  
  Form11: TForm11;  
  
implementation  
  
{$R *.dfm}  
//CreateRandom(随机数取值范围起始值, 终止值; 返回数组长度)  
function TForm11.CreateRandom(const RangeStart, RangeEnd, ResultCount : integer) : Tarray<Integer>;  
var  
  tmpLst : TStringList; //可以使用泛型列表或数组代替  
  I, n: Integer;  
begin  
  if RangeStart >= RangeEnd then  
    raise Exception.Create('错误的随机数范围!');  
  
  if ResultCount < 1 then  
    raise Exception.Create('随机数返回数组长度必须大于0!');  
  
  tmpLst := TStringList.Create;  
  tmpLst.Capacity := RangeEnd - RangeStart;  
  try  
    for n := RangeStart to RangeEnd do  
    begin  
      tmpLst.Add(IntToStr(n));  
    end;  
  
    Randomize;  
  
    SetLength(Result, ResultCount);  
    for I := 0 to ResultCount do  
    begin  
      n := Random(tmpLst.Count - 1);  
      Result[i] := StrToInt(tmpLst.Strings[n]);  
      tmpLst.Delete(n);  
    end;  
  finally  
    tmpLst.free;  
  end;  
end;  
  
procedure TForm11.btn1Click(Sender: TObject);  
var  
  MyArr : Tarray<Integer>;  
  I : Integer;  
  s : string;  
begin  
  s := '';  
  MyArr := CreateRandom(0, 100, 10);  
  for I := Low(MyArr) to High(MyArr) do  
    s := s + inttostr(Myarr[i]) + ' ';  
  
  ShowMessage(s);  
  
  s := '';  
  MyArr := CreateRandom(100, 1000, 15);  
  for I := Low(MyArr) to High(MyArr) do  
    s := s + inttostr(Myarr[i]) + ' ';  
  
  ShowMessage(s);  
end;  
  
end.  
 
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<