比
比尔
Unregistered / Unconfirmed
GUEST, unregistred user!
我自己写的一个内存分配程序(包装了虚存分配函数)
procedure GetMemEx(var p : Pointer
nSize : Integer);
begin
VirtualAlloc(P, nSize,MEM_COMMIT, PAGE_READWRITE or PAGE_GUARD);
end;
在调用时如下写:
procedure Button1Click(Sender : TObject);
var
I : PInteger;
begin
GetMemEx(I, SizeOf(Integer))
---->编译出错: type of actual and formal var parameter must be identical
I^ := 123;
...
end;
难道PInteger不能作为var变量传进去?
procedure GetMemEx(var p : Pointer
nSize : Integer);
begin
VirtualAlloc(P, nSize,MEM_COMMIT, PAGE_READWRITE or PAGE_GUARD);
end;
在调用时如下写:
procedure Button1Click(Sender : TObject);
var
I : PInteger;
begin
GetMemEx(I, SizeOf(Integer))
---->编译出错: type of actual and formal var parameter must be identical
I^ := 123;
...
end;
难道PInteger不能作为var变量传进去?