Delphi XE2 64bitのHKEY_-constantsの "Constant expression violation subrange bounds"が表示されるのはなぜですか？

Question

は、私がターゲットプラットフォーム64ビットWindows用のDelphi XE2に次のコードをコンパイルすると...

function HKeyToString(_HKey: HKey): string; 
begin 
    case _HKey of 
    HKEY_CLASSES_ROOT: result := 'HKEY_CLASSES_ROOT'; // do not translate 
    HKEY_CURRENT_USER: result := 'HKEY_CURRENT_USER'; // do not translate 
    HKEY_LOCAL_MACHINE: result := 'HKEY_LOCAL_MACHINE'; // do not translate 
    HKEY_USERS: result := 'HKEY_USERS'; // do not translate 
    HKEY_PERFORMANCE_DATA: result := 'HKEY_PERFORMANCE_DATA'; // do not translate 
    HKEY_CURRENT_CONFIG: result := 'HKEY_CURRENT_CONFIG'; // do not translate 
    HKEY_DYN_DATA: result := 'HKEY_DYN_DATA'; // do not translate 
    else 
    Result := Format(_('unknown Registry Root Key %x'), [_HKey]); 
    end; 
end; 

...私はHKEY_-定数のそれぞれに対して警告を得る： 「W1012定数式は、サブレンジに違反します境界」

私は（識別子にはCtrl + Leftclickで）Winapi.Windowsで宣言をチェックする：

type 
    HKEY = type UINT_PTR; 
{...} 
const 
    HKEY_CLASSES_ROOT  = HKEY(Integer($80000000)); 

これらは私には罰金に見えます。なぜコンパイラはまだ問題があると思いますか？

Answer 1

：

Integerへのキャストが負の数に 80000000を作るためだ

FFFFFFFF80000000 

。そして、符号なしに変換するとFFFFFFFF80000000になります。この値は正しいことに注意してください。窓のヘッダー・ファイル内の宣言は次のとおりです。

#define HKEY_CLASSES_ROOT ((HKEY) (ULONG_PTR)((LONG)0x80000000)) 

、あなたはヘッダファイルをインクルードし、C++プログラムでHKEY_CLASSES_ROOTの値を検査するとき、それは、Delphiの宣言とまったく同じ値です。

そして、我々はselectors in a case statement can only beと述べているDelphiのドキュメントからパズルを解くことができます。

32ビット

よりも小さい順序型の任意の式あなたが交換するしかありませんあなたのcaseステートメントはifステートメントです。

Answer 2

HKEY=UINT_PTRは、あなたのケースでは符号なし64ビット整数であり、case ... ofステートメントはそれを処理しないようです。

XE2/XE3コンパイラフロントエンドは、コンパイラのバックエンドが64ビットのcase文を処理できないという技術的な理由がない場合でも、32ビットプラットフォームをターゲットとしています（従来のsub register,constant; jz @... asmコード生成パターン）。

あなたはintegerにすべてを型キャストしようとすることができます：

const 
    HKEY_CLASSES_ROOT32 = Integer($80000000); 

... 

function HKeyToString(_HKey: integer): string; 
begin 
    case _HKey of 
    HKEY_CLASSES_ROOT32: result := 'HKEY_CLASSES_ROOT'; // do not translate 
... 

またはちょうど_HKey値の最上32ビット（これは同じである）を無視：期待通りに動作します

function HKeyToString(_HKey: HKey): string; 
begin 
    case _HKey and $ffffffff of 
    HKEY_CLASSES_ROOT and $ffffffff: result := 'HKEY_CLASSES_ROOT'; // do not translate 
... 

をWindowsの場合：HKEY_*定数の数が限られているため、は_HKeyの最上位32ビットを無視できるので、バグcase .. of...ステートメント。もちろん、Win32とWin64の両方で動作します。

私も... and $fは十分でしょう疑う - すべてHKEY_*定数を参照してください。

最終（と確かに最善の解決策は）古き良きネストされたif... else if...ステートメントを使用することです：

​​

私は、最後の一つは、現代のパイプラインのCPUを搭載した、遅く好ましく、されていないと思います。 HKEY_CLASSES_ROOTの実際の値である64ビットコンパイラで