如何在Delphi中获得64位随机值？

Question

如何在Delphi 2006中创建随机的64位整数值？内置的基于整数的Random()函数似乎只返回0到2 ^ 31之间的值.

Answer 1

你可以使用我的GpRandomGen.它实现了Marsaglia/Zaman/James算法,速度极快,据说非常随机.作为免费软件发布.

Answer 2

生成两个32位的randoms并将它们拼接在一起.

编辑

与@ Andreas的回答类似,我喜欢以下(等效)实现:

function Random64: UInt64;
var
  Overlay: packed record
    a, b: UInt32;
  end absolute Result;
begin
  Assert(SizeOf(Overlay)=SizeOf(Result));
  Overlay.a := Random32;
  Overlay.b := Random32;
end;