Многомерный массив

[Должно быть имя?]

Как описать параметр функции, чтоб можно была вот так вызывать?

  AddFuction([
    ['TestFunc', @TestCallBack],
    ['Test2', @TestCallBack]
  ]);

Т.е содержит массив, а в нем массивы значений, первое значения строка, второй - указатель на функцию

Что то вроде

type
TTest = Array of Array of Pointer;

но он еще должен принимать тип string совместно =_=

type
TTest = Array of Array of String, Pointer; // Понятно что работать не будет

[newerow1989]

type
  tTest = record
     s:string;
     p:Pointer;
  end;

var
  ppp:array of array of tTest;

Сойдет?

[Должно быть имя?]

Сообщение от newerow1989

type
  tTest = record
     s:string;
     p:Pointer;
  end;

var
  ppp:array of array of tTest;

Сойдет?

Можно была взять за вариант, НО. это понадобиться заполнять структуру. А я хочу от этого избавиться. Я уже написал такую функцию

function AddFuction2(Names: array of PAnsiChar; Pointers:array of Pointer; var ModuleEntry:zend_module_entry):TArray<zend_function_entry>;
var
  i, v  : integer;
begin
  if High(module_entry_table) = -1 then
    SetLength(module_entry_table, 1);

  for i := 0 to High(Names) do begin
    SetLength(module_entry_table, Length(module_entry_table) + 1);
    v := High(module_entry_table) - 1;
    module_entry_table[v].fname := Names[v];
    module_entry_table[v].arg_info := nil;
    module_entry_table[v].handler := Pointers[v];
  end;
  ModuleEntry.functions := @module_entry_table[0];
end;

И ей пользоваться так

  AddFuction2([
    'TestFunc', 'Test2'
  ], [
    @TestCallBack, @TestCallBack
  ], ModuleEntry);

но это не красиво

[newerow1989]

То, что в 1 посте - так не получится! Массив должен быть одного типа

[Должно быть имя?]

Сообщение от newerow1989

То, что в 1 посте - так не получится! Массив должен быть одного типа

Эхх, жаль что на c++ можно а на паскале нет

[min@y™]

Эхх, жаль что на c++ можно а на паскале нет

можно и в паскале, если очень хочется. есть папраметры - открытые массивы (пример - функция Format()).
был бы смысл. он точно есть? мож не стоит так усложнять? какова цель?

[Должно быть имя?]

Сообщение от min@y™

можно и в паскале, если очень хочется. есть папраметры - открытые массивы (пример - функция Format()).
был бы смысл. он точно есть? мож не стоит так усложнять? какова цель?

Сделать похожую штуку НА эту

const Class_test NameTest[] = {
	TEST_ME(TestCon__, __construct)
	TEST_FE_END
};

Посмотрю как устроена Format.

ахх нет, там "const Args: array of const" про это я знал, и пробовал еще днем

[min@y™]

Сделать похожую штуку НА эту

практическая цель-то какая?

[Аватар]

Чего плохого в двух массивах? Одним можно извратиться ради хохмы в таком "стиле"

VarArrayOf([VarArrayOf(['TestFunc',Integer(@TestCallBack)]),VarArrayOf(['Test2',Integer(@TestCallBack)])])

[Должно быть имя?]

У меня появился вопрос, будет ли полезна присвоения nil переданным аргументам в функцию ?

    FunctionName[i] := nil;
    FunctionPoint[i] := nil;

Полный код

procedure SetPFuncEntryEND(Name:PAnsiChar; CallBackFunc:Pointer;
                                    var PFuncEntry:TArray<zend_function_entry>);
var
  i:Integer;
begin
  i := High(PFuncEntry);
  if i = -1 then
    SetLength(PFuncEntry, 1);

  PFuncEntry[i].fname := Name;
  PFuncEntry[i].handler := CallBackFunc;
  SetLength(PFuncEntry, i + 2);
end;

function AddFuction2(FunctionName   : array of PAnsiChar;
                     FunctionPoint  : array of Pointer;
                     var PFuncEntry : TArray<zend_function_entry>;
                     var SetEntry   : zend_module_entry):TArray<zend_function_entry>;
var
  i : integer;
begin
  if High(FunctionName) <> High(FunctionPoint) then
  begin
    ShowMessage('[names] is not equal with [Pointers]');
    exit;
  end;

  SetLength(PFuncEntry, 1);

  for i := 0 to High(FunctionName) do begin
    SetPFuncEntryEND(FunctionName[i], FunctionPoint[i], PFuncEntry);
    FunctionName[i] := nil;
    FunctionPoint[i] := nil;
  end;

  SetEntry.functions := @PFuncEntry[0];
end;

Или он их потом сам почистит ?