RandSeed不工作？

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或只是重命名您的过程.