रिकॉर्ड प्रकारों के लिए आगे की घोषणा

Question

क्या शीर्षक में ऐसी कोई चीज है? कुछ में चलाने मैं an API structure परिवर्तित करने के हिस्से में यह करने के लिए कोशिश कर रहा हूँ, और मैं का सामना करना पड़ा नहीं किया है से पहले:

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; 

जो लोग डेल्फी पता स्पष्ट समस्या देखेंगे। आप इसके आसपास कैसे काम करेंगे?

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 घोषित करने में कोई समस्या नहीं है।