Int64定数の宣言方法は？

Question

私はDelphiで定数を定義しようとしている：

const 
    FNV_offset_basis = 14695981039346656037; 

を、私はエラーを取得：整数定数が大きすぎ

Note:14,695,981,039,346,656,037 decimal is equal to 0x14650FB0739D0383 hex.

は、どのように私はこのInt64定数を宣言することができますか？

私が試したいくつかの他のもの：

const 
    FNV_offset_basis: Int64 = 14695981039346656037; 
    FNV_offset_basis = Int64(14695981039346656037); 
    FNV_offset_basis: Int64 = Int64(14695981039346656037); 


var 
    offset: LARGE_INTEGER; 
begin 
    //recalculate constant every function call 
    offset.LowPart = $739D0383; 
    offset.HighPart = $14650FB0; 

修正

を私の基本的な前提が間違っていました。

Windows 7の電卓に貼り付ける14695981039346656037、および進への変換、14695981039346656037の六角相当0x14650FB0739D0383であることを信じるように私を導いた：間違ってい

を。

だから、ときに私はに設定されていない高ビットで、16桁の16進値を見て、私はそれが64ビットに合うことができると推定符号付き整数。

実際には、14695981039346656037の16進数は...何か他のものです。ロブ、あなたは正しかった！ （おそらく）

Answer 1

質問の16進数の変換が正しくありません。その数値は実際には$ cbf29ce484222000であり、符号付き64ビット整数には収まらない。それを表すには、符号なし64ビット整数が必要です。 Delphi 5には署名のないUInt64はありませんので、あなたは不運です。あなたのバージョンのDelphiでその数値を表すことができる整数データ型はありません。

ビットパターンが必要な場合は、ビットパターンを符号付きの値として解釈できます。その場合は、負の数になります。

Answer 2

この数は、符号付き64ビット整数より大きい値です。代わりにUInt64を使用してみましたか？

Answer 3

私は、64ビット（符号なし）の番号を保持するために64ビットの変数が必要でした。私はまだそれを達成するためにDelphiのInt64を使用することができますが、トリックは私に必要な定数を宣言する方法だった：

const 
    FNV_offset_basis: ULARGE_INTEGER = (LowPart: $cbf29ce4; HighPart: $84222000); 

（私正しい進値を見つけるためのデイブとロブに感謝）

をしながら私は午前は、厳密にInt64を使用していない、言えば、私はInt64型を使用しています：いくつかの巧妙に作成されたUInt64Xxx数学ルーチンで

var 
    hash: Int64; 
begin 
    hash := FNV_offset_basis.QuadPart; 

    for i := 1 to Length(s) do 
    begin 
     hash := hash xor Byte(s[i]); 
     hash := UInt64Mul(hash, 1099511628211);  
    end; 

    Result := UInt64mod(hash, map.Length); 
end; 

：

function UInt64mod(const Dividend: Int64; const Divisor: DWORD): DWORD; 
var 
    d2: LongWord; 
    remainder: LongWord; 
begin 
    //Upper half of dividend cannot be larger than divisior, or else a #de divide error occurs 
    //Keep multiplying by two until it's larger. 
    //We fixup at the end 
    d2 := Divisor; 
    while d2 < u.HighPart do 
     d2 := d2 * 2; 

    asm 
     MOV EDX, ULARGE_INTEGER(Dividend).HighPart; 
     MOV EAX, ULARGE_INTEGER(Dividend).LowPart; 
     MOV ECX, d2; 

     //EAX := EDX:EAX/r/m32, EDX=remainder 
     DIV ECX; 
     MOV remainder,EDX 
    end; 

    //Fixup for using larger divisor 
    Result := remainder mod Divisor; 
end; 

読者のための練習として実装UInt64Mulを残しておきます。

Answer 4

Windows 7電卓は故障しており、QWordが選択されていても電卓が実際に64Bitで計算できないように見えることがあります。それはWindows 7のInt64 Calculatorのようで、十分な数字を表示することができず、単にそれらを完全に間違った値に取り除くだけです。興味深いことに、Windows XPの電卓にはこのバグはありません。証拠として今

そして14695981039346656037の本当の16進値は0xCBF29CE484222325は14695981039346656037 =（* 465383 20921 * 1509404459）もあり、この電卓でそれを計算してみてください、あなたが代わりに14695981039346656037の-3750763034362895579（署名）（符号なし）を取得しますでプログラマーモードですが、科学的モードでは正しいでしょう。

Answer 5

私は型変換と拡張に返されたバリアントを格納したint64は私が期待していた結果のために十分に公正だったと仮定することにより、デルファイ5 でサポートされていないタイプUInt64型のVariant型を返したWMI呼び出し、 1-ました（Real Type） 2必要に応じてExtendedからInt64を返すTrunc関数を使用しました。

あなたが望むものではありませんが、Real Typeを考えると、誰かが「不可能な」Delphi 5の数学を達成するのに役立つかもしれません。