RandSeedは機能しませんか？

Question

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

このコードは機能しません。私がコンパイルしようとすると、「左側に割り当てることができません」というメッセージが表示されます。なぜ誰も知っていますか？ありがとう。

編集：私のコードをあなたのヒントに基づいて以下のように変更しました。あなたがあなた自身の手順RandSeedと競合名を回避またはちょうどあなたの手順の名前を変更するために、このSystem.RandSeedのように完全修飾名を指定する必要がありますRandSeed変数に値を代入する

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

Answer 1

2つの問題：最初に、RRUZに言及すると、定義済みのSystem.RandSeedと名前の競合があります。競合は、プロシージャから値を戻そうとしているために発生します。 （下記参照）

第2の理由は、私が言ったように、プロシージャから値を返そうとしていることです。代わりに関数が必要です。あなたの目的は、独自の機能を備えた内部RandSeed変数を交換する場合

function RandSeed: Word; 
var 
    datum: TDateTime; 
var 
    hodina,minuta,sekunda,milisekunda: Word; 
begin 
    DecodeTime(datum,hodina,minuta,sekunda,milisekunda); 
    RandSeed := milisekunda; 
    // Better (and more modern) would be 
    // Result := milisekunda; 
end; 

、これは動作します。あなたの目的は、単に既存のRandSeed変数に値を割り当てるために、あなたの機能を使用する場合は、含まれているためにあなたの手順を変更する::

System.RandSeed := millisekunda; 

Answer 2

。