ランタイムパッケージを使用してビルド中に「インポートされたデータ参照が必要」を解決する方法

Question

モノリシックアプリケーションをモジュール化するために、リリースビルド用に単一のexeファイルにコンパイルしながら、デバッグビルドで使用するパッケージを設定しています。

私たちのパッケージ（EAUtils）の1つに、現在[DCC Error] E2201 Need imported data reference ($G) to access 'SMsgDlgWarning' from unit 'SystemUtils'を生産しているユニットが含まれています。

これは、EAUtilsパッケージ自体をビルドするときに発生します。私はまだEAUtilsに依存するパッケージを作ることにはなっていません。 EAUtilsは、rtl/vclパッケージと、Jedi WinApiユニット用に作成したパッケージのみに依存します。

これは線の結果である：

// This is a TaskDialog override, with the same args as the old MessageDlg. 
function TaskDialog(const aContent: string; const Icon: HICON = 0; 
    const Buttons: TTaskDialogCommonButtonFlags = TDCBF_OK_BUTTON): Integer; 
const 
    Captions: array[TMsgDlgType] of Pointer = (@SMsgDlgWarning, @SMsgDlgError, @SMsgDlgInformation, @SMsgDlgConfirm, nil); 
var 
    aMsgDlgType: TMsgDlgType; 
    aTitle: string; 
begin 
    aMsgDlgType := TaskDialogIconToMsgDlgType(Icon); 
    if aMsgDlgType <> mtCustom then 
    aTitle := LoadResString(Captions[aMsgDlgType]) 
    else 
    aTitle := Application.Title; 

は、具体的にこれは全てVcl.Constで宣言されSMsgDlgWarning、SMsgDlgError、SMsgDlgInformationとSMsgDlgConfirmを参照した結果です。

このコードは、単一の実行可能ファイルを作成する際にエラーなしでコンパイルされます。

最適化の手段として、私たちのインクルードファイルには{$IMPORTEDDATA OFF}が含まれています。これにより（グローバル）変数と定数への高速アクセスが可能になります。 http://hallvards.blogspot.com/2006/09/hack13-access-globals-faster.htmlを参照してください。

エラー（http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/cm_package_varref_xml.html）のドキュメントによると、これが原因で、「問題を緩和するには、通常、$ IMPORTEDDATAスイッチをオンにして、エラーを生成するユニットを再コンパイルするのが最も簡単です。

私はインクルードファイルに{$IMPORTEDDATA ON}を設定しており、プロジェクトオプションのDelphi Compiler | Compiling | DebuggingセクションにUse imported data referencesをtrueに設定することで二重に確認しました。

残念ながら、ドキュメントに反して、これは問題を緩和しませんでした。このコンパイラ指令を問題のコードの真上に設定してパッケージを再構築しても、エラーは削除されませんでした。

このE2201エラーを解決するには他に何が必要ですか？ SMsgDlgWarningとそのフレンドがリソース文字列であることが重要なのでしょうか？

Answer 1

エラーメッセージは、IMHOです。誤解を招く可能性があります。Vcl.Constsは、$G-でコンパイルされており、この問題が原因です。 （それがローカライズを壊すが）あまりにも、文字列のconstの配列は、コンパイル使用

function Captions(AType: TMsgDlgType): Pointer; 
begin 
    Result := nil; 

    case AType of 
    TMsgDlgType.mtWarning: 
     Result := @SMsgDlgWarning; 
    TMsgDlgType.mtError: 
     Result := @SMsgDlgError; 
    TMsgDlgType.mtInformation: 
     Result := @SMsgDlgInformation; 
    TMsgDlgType.mtConfirmation: 
     Result := @SMsgDlgConfirm; 
    end; 
end; 

：

const 
    Captions: array[TMsgDlgType] of string = (SMsgDlgWarning, SMsgDlgError, SMsgDlgInformation, SMsgDlgConfirm, ''); 

か、含む、独自のパッケージを構築することができ 回避策として、あなたはこのようなものを使用することができますVcl。*単位を{$G+}と置き換えて、標準のvclパッケージの代わりに使用してください。私は最初の解決策を好む。後者は潜在的に、後で展開（いわゆる「DLL地獄」）によって多くの問題を引き起こす可能性があります。