delphi - 兰德种子不起作用？

Question

procedure RandSeed();
var datum: TDateTime;
var hodina,minuta,sekunda,milisekunda: Word;
begin
  DecodeTime(datum,hodina,minuta,sekunda,milisekunda);
  RandSeed := milisekunda;
end;

该代码不起作用。当我尝试编译它时，它说“左侧无法分配给”。有人知道为什么吗？谢谢。

编辑:我根据您的提示更改了我的代码，如下所示，现在它可以工作了，非常感谢!

procedure RandSeed();
var hodina,minuta,sekunda,milisekunda: Word;
begin
  DecodeTime(now,hodina,minuta,sekunda,milisekunda);
  System.RandSeed := milisekunda;
end;

Answer 1

给 RandSeed 赋值变量，您必须指定像这样的完整限定名称 System.RandSeed 以避免与您自己的过程 RandSeed 发生名称冲突，或者只是重命名您的过程。