Добавлено спустя 9 часов 13 минут 59 секунд:
Забыл, надо добавить Use;
- Код: Выделить всё
procedure x_your_func(pr: TOriMemoryStack; Return: TOriMemory; eval: Pointer); cdecl;
var
i: integer;
M: TOriMemory;
ARR,Sub: TOriTable;
begin
ARR := TOriTable.CreateInManager; // создаем массив в менеджере
for i := 0 to 9 do // добавим 10 элементов в массив
begin
M := TOriMemory.GetMemory;
Sub := TOriTable.CreeateInManager;
Sub.Use; // <------------------- говорим что объект используется
Sub.GetCreateValue('Filename').Val( 'string value' ); // создаем TOriMemory в массиве с ключем и сразу задаем значение...
Sub.GetCreateValue('Directory').Val(False); // ...
Sub.GetCreateValue('Filesize').ValL(100); // ...
M.ValTable( Sub ); // задаем значению Массив
Arr.Add( M ); // добавляем элемент массив
end;
Return.ValTable(ARR); // результат функции
end;
)
