Dichiarazioni di inoltro per i tipi di record

Question

Esiste una cosa come nel titolo? Sto cercando di fare questo in parte di convertire an API structure, e imbattersi in qualcosa che non ho incontrato prima:

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; 

Chi conosce Delphi vedrà il problema evidente. Come faresti a lavorare su questo?

Answer 1

penso che questa è la soluzione più semplice:

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; 

Infatti, è possibile reaplce chiaramente un parametro var da un parametro puntatore (per valore). E non ci sono problemi a dichiarare PReaderModeInfo prima del TReaderModeInfo.