Ну так в основной программе
, а в DLL -
Код:
array [1..of KOEF_CLOUNT] TKoeff
В основной программе надо
Код:
type
TArr = array of TKoef;
TPArr = ^TKoef; // <<==-- Вот
TGetModuleData = function (dllORG: TOrganization; aPArr:TPArr): Boolean; stdcall;
...
PArr := @(Arr[0]); //<<==-- Вот
if GetModuleData(ORG, PArr)
...