デルファイのGetTickCountは有効な整数

Question

私はGetTickCount

を使用して一意のIDを設定しようとしています、私はやっていない私はuniqueString := intTostr(LastUniqueID);

プロジェクトに無効な整数値を得た

次

var 
UniqueID : DWORD; 
LastUniqueID : DWORD; 
uniqueString : string; 
begin 

UniqueID := GetTickCount; 
LastUniqueID := GetTickCount + 1000; 

uniqueString := intTostr(LastUniqueID);//or UniqueID 

end; 

project1.exeは例外クラスEConvertErrorをメッセージ '' 2312357250 'は有効な整数値ではありません。'

何が間違っていますか？

Answer 1

残念ながら、報告したエラーメッセージと一致しないコードが表示されています。あなたの実際のコードは、IntToStrではなくStrToIntを呼び出します。私はこのエラーメッセージがではなくStrToIntへの呼び出しによって生成されるため、これを知っています。 StrToIntは、符号付き32ビット整数型を返す

UniqueID := StrToInt('2312357250'); 

注こと：

あなたのコードでは、より多くのこのようになります。有効な値は、-2,147,483,648〜2,147,483,647の範囲です。あなたの値はIntegerの有効な範囲外です。したがって、エラーです。

これらすべての範囲の問題を簡単に解決するには、DWORDまたはIntegerの代わりにInt64を使用し、StrToInt64に電話してください。

はさらに、これらの線は面倒です：

UniqueID := GetTickCount; 
LastUniqueID := GetTickCount + 1000; 

あなたはGetTickCountに二つの別個の呼び出しを行います。これらの2つの呼び出しは、異なる値を生成することがあります。実際にGetTickCountがロールオーバーすると、2番目の呼び出しは最初の呼び出しよりも小さい値を返します。

さらに多くの問題は、GetTickCount + 1000を囲んでいます。 GetTickCountが上限に近い値を返すと、整数オーバーフローが発生し、結果が期待しない結果になることがあります。その落とし穴を避けるためにGetTickCount64を使用してください。

しかし、私は、システムのティックカウントがユニークなIDを生成する良い方法であると確信しています。要件に応じて、これは問題が解決しない場合もあります。それに直面すると、あなたのコードは、前回要求したよりも1秒未満の一意のIDの要求を排除するように見えます。もちろん、お客様の要件を知らなくても、代替案を推奨することは困難です。

Answer 2

問題は2312357250が大きすぎます。 DWORDとしては有効ですが、89D3C582の16進表現は、DWORDが表すことのできない負数、つまりメッセージに相当します。