Deklaracje w przód dla typów rekordów

Question

Czy jest coś takiego w tytule? Staram się robić to w ramach konwersji an API structure i biegać w czymś nie spotkałem wcześniej:

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; 

Ci, którzy znają Delphi ujrzy oczywisty problem. Jak byś to obejrzał?

Answer 1

Myślę, że to najprostsze rozwiązanie:

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; 

Rzeczywiście, można wyraźnie reaplce parametr var przez (przez wartość parametru wskaźnika). I nie ma problemu z deklarowaniem PReaderModeInfo przed TReaderModeInfo.