该死的dll,这个怎么解决啊(20分)

loskiller · 2004-03-29

Pi=array of integer; function GetUserInfo

i;stdcall; function GetUserInfo

i;stdcall; var   UserInfo

i; begin   SetLength(UserInfo,1);   Result:=UserInfo; end; 程序中调用： procedure TForm1.Button1Click(Sender: TObject); var   x

i; begin   x:=GetUserInfo; end; 当x为局部变量时，一点就有错 为全局时退出就报错。

satanmonkey · 2004-03-29

你setlength分配的空间，最后你没释放掉。

loskiller · 2004-03-29

大哥，在那释放啊，如果在ddl内部释放，那么GetUserInfo返回的是什么啊。 我改为下面那样还是不行 procedure TForm1.Button1Click(Sender: TObject); var   x

i; begin   x:=GetUserInfo;   。。。。   x:=nil; end;

rctm · 2004-03-29

Ppi=^pi; procedure TForm1.Button1Click(Sender: TObject); var   x

pi; begin   new(x);   x^:=GetUserInfo;   x^[0]:=1;   caption:=format('%d',[x^[0]]); end;

satanmonkey · 2004-03-29

用完以后setlength(x,0)

loskiller · 2004-03-29

多谢rctm和satanmonkey,请问rctm为什么要这样做呢