delphi提取任意长度随机数
设定随机数范围, 返回数组长度, 得到一组不重复的随机数
unit Unit11;interfaceuses 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.