Forward Deklarationen für Satzarten

Question

Gibt es so etwas wie im Titel? Ich versuche, dies teilweise zu tun an API structure umzuwandeln, und führen Sie in etwas, das ich vorher nicht begegnet sind:

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; 

Diejenigen, die offensichtliche Problem, die Delphi wissen zu sehen. Wie würdest du das umgehen?

Answer 1

Ich denke, dies ist die einfachste Lösung:

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; 

der Tat kann man deutlich reaplce einen var Parameter durch einen (von-Wert) Zeigerparameter. Und es gibt kein Problem, PReaderModeInfo vor TReaderModeInfo zu deklarieren.