Динамический массив + Dll.

[LEKA]

Проблема такая , процедуры в DLL работающие с динамическими массивами не хотят работать,так мало того и виснет комп.Пробывал ставить ShareMem не помогает = (
Пишет ошибку


и еще вопрос , у меня в type обьявленно arr = array of integer;
a:arr;
B:array of integer;
Когда делаю так a:=b; пишет что разные типы, как исправить проблему?

[rpy3uH]

давай код который в DLL, телепаты в отпуске

[Shuraken]

По второму вопросу компилятор действительно воспринимает их как разные типы. Обычно этого избегают так:
type
TMyArr = array of integer;

....
var
A: TMyArr;
B: TMyArr;

[LEKA]

Функция вызываемая из dll:
function arrconnect(var firstarr:array of integer; numarr:integer;Secondarr:array of integer; numarr2:integer):arr;stdcall;
var
i,z: Integer;
a:arr;
begin
for i:=1 to numarr do
a[i]:=firstarr[i];
z:=numarr+1;
for i:=1 to numarr2 do
begin
a[z]:=secondarr[i];
z:=z+1;
end;
result:=a;

end;



т.к до этого массв используються как array of integer , трудно будет переделывать все предыдущие операции над массивами, скорее всего даже не возможно... =((

[LEKA]

Или вот эта процедура удаления элемента из масива, возвращает изначальное значение numarr вместо numarr-1; в чем может проблема??
procedure del( var A:arr; Index:integer; numarr:integer);stdcall;
var i : integer;
begin
for i:=index to numarr do
begin
a[i]:=a[i+1];
end;
numarr:=numarr-1;
end;

[rpy3uH]

надо так
procedure del( var A:arr; Index:integer; var numarr:integer);stdcall;

[LEKA]

спасибо попробую..

[Voland]

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

...
for i:=1 to numarr do
a[i]:=firstarr[i];
...

Access Violation не хочешь? Тогда пиши for i:=0 to numarr - 1