Przełożenie wskaźnika funkcji C na Delphi/Pascal?

Question

Obecnie tłumaczę niektóre nagłówki C na Delphi. Nie mogę znaleźć odniesienia do konwersji wskaźnika funkcji z C na Delphi.

typedef _JAlloc JAlloc; 
struct _JAlloc { 
    void *(*alloc) (JAlloc *allocator, size_t size); 
    void (*free) (JAlloc *allocator, void *p); 
    void *(*realloc) (JAlloc *allocator, void *p, size_t size); 
}; 

1. Jaki będzie tłumaczenie Delphi tego?

2. Gdzie mogę znaleźć dobre zasoby do ręcznej konwersji nagłówków C na Delphi (w tym wskaźnik, dyrektywy preprocesora itp.)?

Answer 1

Zastosowanie tego rodzaju kodu

type 
    PJAlloc = ^TJAlloc; 
    TJAllocAlloc = function(allocator: PJAlloc; size: integer): pointer; cdecl; 
    TJAllocFree = procedure(allocator: PJAlloc; p: pointer); cdecl; 
    TJAllocRealloc = function(allocator: PJAlloc; p: pointer; size: integer); cdecl; 
    TJAlloc = record 
    alloc: ^TJAllocAlloc; 
    free: ^TJAllocFree; 
    realloc: ^TJAllocRealloc; 
    end; 

i zmienić cdecl do stdcall, w zależności od konwencji wywołującego z biblioteki C.

Alternatywą deklaracja (bardziej „pascalish” chyba) mogą być:

type 
    TJAllocAlloc = function(var allocator: TJAlloc; size: integer): pointer; cdecl; 
    TJAllocFree = procedure(var allocator: TJAlloc; p: pointer); cdecl; 
    TJAllocRealloc = function(var allocator: TJAlloc; p: pointer; size: integer); cdecl; 
    TJAlloc = record 
    alloc: ^TJAllocAlloc; 
    free: ^TJAllocFree; 
    realloc: ^TJAllocRealloc; 
    end; 

Answer 2

narzędzie doktora Boba HeadConv jest dobry w użyciu do konwersji deklaracji C w Delphi, i jest dobrym narzędziem edukacyjnym dla porównania Kod źródłowy C do równoważnego kodu źródłowego Pascala.

You can find it here