2
我有一個代碼,並給了我一些數字。我不知道這些數字意味着什麼。我很好奇,這些數字是什麼意思。謝謝您的回答!是什麼GetMemoryManagerState,ReservedAddressSpace做德爾福?
procedure usdmem(var stradd,stpadd:array of Integer);
var
st: TMemoryManagerState;
sb: TSmallBlockTypeState;
i:Integer;
begin
GetMemoryManagerState(st);
i:=0;
for sb in st.SmallBlockTypeStates do
begin
stradd[i]:=sb.ReservedAddressSpace;
stpadd[i]:=stradd[i]+sb.UseableBlockSize*8;
inc(i);
end;
end;
//-----------------------------------
usdmem(stradd,stpadd);
for I := 0 to 10 do
begin
Write(inttostr(stradd[I]));
Write(' - ');
WriteLn(inttostr(stpadd[I]));
end;