C función de traducción del puntero a Delphi/Pascal?

Question

Actualmente estoy traduciendo algunos encabezados C en Delphi. No puedo encontrar una referencia para convertir un puntero de función de C a 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. ¿Cuál será la traducción de esta Delphi?

2. ¿Dónde puedo encontrar buenos recursos para la conversión manual de los encabezados C a Delphi (incluidas las instrucciones de puntero, preprocesador, etc.)?

Answer 1

uso de este tipo de código

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; 

Y el cambio cdecl a STDCALL, dependiendo de la convención de llamada de la biblioteca de C.

una declaración alternativa (más 'pascalish' tal vez) podría ser:

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

utilidad HeadConv del Dr. Bob es una buena para usar para la conversión de declaraciones de C en Delphi, y es una buena herramienta de aprendizaje para comparar C código fuente al código fuente Pascal equivalente.

You can find it here