Kayıt türleri için ileriye yönelik bildirimler

Question

Başlıkta olduğu gibi bir şey var mı?

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; 

Delphi bilenler bariz sorunu göreceksiniz: Daha önce ben karşılaşmadım an API structure dönüştürme kısmen bu yapmaya çalışıyor ve içine bir şey çalıştırmak ediyorum. Bu konuda nasıl çalışırsın? Gerçekten de

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; 

, açıkça bir (yan-değer) işareti parametresi ile bir var parametre reaplce olabilir:

Answer 1

bu en basit çözüm olduğunu düşünüyorum. Ve TReaderModeInfo'dan önce PReaderModeInfo bildiren bir sorun yoktur.