私はコードを持っていて、いくつかの数字を教えてくれます。これらの数字が何を意味するのかわかりません。これらの数字が何を意味するのか興味があります。ご回答ありがとうございます。
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;