如何在Delphi中基于给定种子生成相同的随机序列

在Delphi里，你完全可以通过手动设置全局变量RandSeed来实现固定种子的随机序列生成，替代自动初始化的Randomize()函数：

核心用法 #

Randomize()的作用是用系统当前时间初始化RandSeed，导致每次运行生成的随机序列不同。而直接给RandSeed赋值固定数值后，Random()函数就会基于这个种子生成完全一致的序列。

数字序列示例 #

procedure TestFixedRandom;
var
  I: Integer;
begin
  // 设置固定种子
  RandSeed := 12345;
  
  // 生成5个0-99的随机数，每次运行结果都一样
  for I := 1 to 5 do
    Writeln(Random(100));
end;

只要种子12345不变，每次调用这个过程输出的数字序列完全相同。

字符序列示例 #

如果需要生成固定的字符序列，可以基于随机数映射到指定字符集：

function GetFixedRandomChars(Seed: Integer; Count: Integer; const CharSet: string): string;
var
  I: Integer;
begin
  RandSeed := Seed;
  Result := '';
  for I := 1 to Count do
    Result := Result + CharSet[Random(Length(CharSet)) + 1]; // Delphi字符串索引从1开始
end;

// 调用示例：生成5个由字母组成的固定序列
var
  FixedChars: string;
begin
  FixedChars := GetFixedRandomChars(6789, 5, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  Writeln(FixedChars); // 每次运行输出相同的5个大写字母
end;

隔离独立的随机序列 #

如果需要在程序中同时维护多个互不干扰的随机序列（比如多线程场景），可以封装一个自定义类来管理独立的种子状态，避免全局RandSeed的冲突：

type
  TFixedRandom = class
  private
    FCurrentSeed: Integer;
    function NextSeed: Integer;
  public
    constructor Create(Seed: Integer);
    function Next(MaxValue: Integer): Integer;
    function NextChar(const CharSet: string): Char;
  end;

constructor TFixedRandom.Create(Seed: Integer);
begin
  inherited Create;
  FCurrentSeed := Seed;
end;

// 模拟Delphi内置的随机种子更新逻辑
function TFixedRandom.NextSeed: Integer;
begin
  RandSeed := FCurrentSeed;
  Random; // 调用一次Random更新RandSeed
  Result := RandSeed;
end;

function TFixedRandom.Next(MaxValue: Integer): Integer;
begin
  RandSeed := FCurrentSeed;
  Result := Random(MaxValue);
  FCurrentSeed := NextSeed; // 更新种子，保证序列连续性
end;

function TFixedRandom.NextChar(const CharSet: string): Char;
begin
  Result := CharSet[Next(Length(CharSet)) + 1];
end;

使用这个类时，每个实例的种子独立，不会互相影响：

var
  Rand1, Rand2: TFixedRandom;
begin
  Rand1 := TFixedRandom.Create(111);
  Rand2 := TFixedRandom.Create(222);
  
  Writeln(Rand1.Next(100)); // 基于种子111的结果
  Writeln(Rand2.Next(100)); // 基于种子222的结果
  
  Rand1.Free;
  Rand2.Free;
end;

内容的提问来源于stack exchange，提问作者RaelB