Непонятное возникновение ошибки при работе с массивом

[Xo66um]

Всем привет.

Собственно, есть динамический массив, который создается в .dll, и возвращается функцией в программу, где должны вывестись строки этого массива. Проблема в том, что постоянно вылезает ошибка "Invalid Pointer Operation", что делать - понять не могу. Гугл ничего толкового не подкидывает...

Код в .dll:

type
  TWideStringsArray = array of WideString;

...

function CollectData: TWideStringsArray;
var
 arrOutData: TWideStringsArray;
 i: integer;
begin
 SetLength(arrOutData, Length(arrInData));
 for i := Low(arrInData) to High(arrInData) do
  begin
   arrOutData[i] := arrInData[i];
  end;

 Result := arrOutData;
end;

Вывод строк из полученного массива в программе:

type
  TWideStringsArray = array of WideString;

...

procedure GetCollectedData(arrOutData: TWideStringsArray);
var
 i: integer;
begin
 for i := Low(arrOutData) to High(arrOutData) do
  begin
   Form1.Memo1.Lines.Add(arrOutData[i]);
  end;
end;

В результате Memo1 заполняется строками из массива, и затем вылезает ошибка "Invalid Pointer Operation".

Может кто-нибудь подскажет, где ошибка засела? Уже замучился с этой проблемой, в гугле скоро точно забанят

UPD:
Причем, стоит заметить, что этот код исправно работает, если он весь содержится в одной программе (без библиотеки).

[type_Oleg]

А там не надо SetLength(Result, ... ?

[Xo66um]

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

А там не надо SetLength(Result, ... ?

В функции dll? Есть уже:

SetLength(arrOutData, Length(arrInData));

[Stilet]

А Sharemem подключен?
Если да то попробуй возвращать массив не результатом, а параметром-переменной.

function CollectData(var arrOutData:TWideStringsArray):Integer;
var
 i: integer;
begin
 SetLength(arrOutData, Length(arrInData));
 for i := Low(arrInData) to High(arrInData) do
  begin
   arrOutData[i] := arrInData[i];
  end;
 Result:=Length(arrOutData);
end;

[Xo66um]

Stilet, спасибо) Подключил ShareMem - ошибка исчезла)

[StriderX]

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

А Sharemem подключен?

Дельфи чуть посвежее на базе FastMM работают, поэтому доступен simpleSharemem - этот не требует никаких либ за собой таскать.