C函数指针翻译成Delphi/Pascal？

Question

我目前正在将一些 C 标头转换为 Delphi。我找不到将函数指针从 C 转换为 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. 这个的 Delphi 翻译是什么？

2. 在哪里可以找到将 C 头文件手动转换为 Delphi 的好资源（包括指针、预处理器指令等）？

Answer 1

使用这种代码

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;

根据 C 库的调用约定，将 cdecl 更改为 stdcall。

另一种声明（也许更“pascalish”）可能是：

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

博士。 Bob 的 HeadConv 实用程序非常适合用于将 C 声明转换为 Delphi，并且是将 C 源代码与等效的 Pascal 源代码进行比较的良好学习工具。

You can find it here