インターフェイスがコンパイル時に存在するかどうかをテストしますか？

Question

MSHTML.pasユニットのIDeveloperConsoleMessageReceiverインターフェイスはDelphi 2010には存在しませんが、最近の機能であるため、（おそらく）より新しいバージョンに存在します。

私はこのインタフェースを手動で宣言したいが、それが存在しない場合にのみ、このインタフェースを宣言したい。

このインターフェイスが宣言されているかどうかをテストするにはどうすればよいですか？ "偽" のコードのような

何か：

{$IFNDEF "IDeveloperConsoleMessageReceiver"} 
type 
    IDeveloperConsoleMessageReceiver = interface ... 
{$ENDIF} 

Answer 1

は

{$IF not DECLARED(IDeveloperConsoleMessageReceiver)} 
    IDeveloperConsoleMessageReceiver = interface ... 
{$ENDIF} 

詳細は

EDIT hereを見つけることができます。したがって、あなたの現在のプロジェクトでシンボルが宣言されていても、宣言されたユニットが、それをテストするユニットのUSESにない場合、それは宣言されたものとみなされません。

Answer 2

あなたは{$IF}コンパイラでpredefined constantsをテストすることができますが、定義：

{$IFDEF CONDITIONALEXPRESSIONS} 
    {$IF MSHTMLMajorVersion < 4} // Implement interface 
    type 
     IDeveloperConsoleMessageReceiver = interface ... 
    {$IFEND} 
{$ENDIF} 

MSHTMLMajorVersionは、特定の場合には定義されている、MSHTML.PASに定数宣言されていますインターフェイスが宣言されているかどうか：

const 
    // TypeLibrary Major and minor versions 
    MSHTMLMajorVersion = 4; 
    MSHTMLMinorVersion = 0; 

---

あなたの質問には、任意のインターフェースがコンパイル時に存在している場合は、定数からそれを引き出すことができなかった場合を除き、それが宣言されていないされている場合は、エラーで停止するようにコンパイラに強制することができ、そして、テストする方法である場合：

type 
    IMyTest = IDeveloperConsoleMessageReceiver; 

問題の範囲によっては、これはおそらく理想的ではありません。ただ、シンボルが$ IFが発生したスコープで宣言されている場合、それはテストする、明確にする：あなたが探しているものを