レコードタイプの前方宣言

Question

タイトルのようなものはありますか？

PFNReaderTranslatedDispatch = function(var msg: TMsg): BOOL; stdcall; 
PFNReaderScroll = function(var prmi: TReaderModeInfo; dx, dy: integer): BOOL; stdcall; 
TReaderModeInfo = record 
    cbSize: DWord; 
    hWnd: THandle; 
    fFlags: DWord; 
    prc: PRect; 
    pfnScroll: PFNReaderScroll; 
    fFlags2: PFNReaderTranslatedDispatch; 
    lParam: DWord; 
end; 
PReaderModeInfo = ^TReaderModeInfo; 

デルファイを知っている人は明らかに問題が表示されます。私は前に私が遭遇していないan API structureを変換する部分でこれをやろうとしている、と何かに実行しています。これを回避するにはどうしますか？

Answer 1

私はこれが最も簡単な解決策だと思う。確かに

PFNReaderTranslatedDispatch = function(var msg: TMsg): BOOL; stdcall; 
PReaderModeInfo = ^TReaderModeInfo; 
PFNReaderScroll = function(prmi: PReaderModeInfo; dx, dy: integer): BOOL; stdcall; 
TReaderModeInfo = record 
    cbSize: DWord; 
    hWnd: THandle; 
    fFlags: DWord; 
    prc: PRect; 
    pfnScroll: PFNReaderScroll; 
    fFlags2: PFNReaderTranslatedDispatch; 
    lParam: DWord; 
end; 

、あなたは明らかに（バイ値）ポインタパラメータによってvarパラメータをreaplceすることができます。 TReaderModeInfoの前にPReaderModeInfoと宣言することは問題ありません。