Си/С++ интерпретация в Паскаль/Delphi

[SeemaN_tm]

Не нашел на этом форуме такой важной темы.
Давайте здесь обсуждать, объяснять возникшие вопросы и пытаться интерпретировать.

Не сочтите за не скромность, но я первый.

struct vtable
    {
        int32_t (*e0)();
        int32_t (*e1)(int32_t);
        int32_t e2;
        int64_t e3;
    }

Этот фрагмент кода нужно представить в Pascal/Delphi
Вот на что меня хватило:

Type vtable = record
        int32_t (*e0)();
        int32_t (*e1)(int32_t);
        e2: Integer;
        e3: Int64;
    End;

Подскажите как поступить с остальным. И правильно ли я вообще что то сделал ?

[Pavia]

Это у вас функциональный тип

typedef double (*TFunction)(double); // имя нового типа - TFunction;
type TFunction= function (value:double):double; // value - имя переменной

Type vtable = record
        e0: function():Integer;
        e1: function(value:Integer):Integer;
        e2: Integer;
        e3: Int64;
    End;

Для переводов исходных кодов есть разные утилиты:
http://cc.embarcadero.com/Item/26951
http://www.swig.org/exec.html

[SeemaN_tm]

struct vtable g14 = {
.e0 = function_3b4048801,
.e1 = function_3b4048be
};

Тоже осилить не могу.
А самое плохое, смысл этих строк очень далёк.
Примеров подобных не находил, а я привык по ним разбираться.

var g14:vtable = (
e0: function_3b4048801,
e1: function_3b4048be
);

Подскажите как поступить.

[Pavia]

Const g14:vtable = (
e0: @function_3b4048801;
e1: @function_3b4048be;
e2:0;
e3:0
);

Если не сработает, то инициализацию переменной сделаешь кодом.

Var g14:vtable;
Procedure g14_init;
Begin
g14.e0 := @function_3b4048801;
g14.e1 := @function_3b4048be;
End;
...
Inalize
g14_init;
...
end.