Code: Alles auswählen
var
status: TFPCHeapStatus;
p: Pointer;
begin
status := GetFPCHeapStatus;
WriteLn('Free:', status.CurrHeapFree);
WriteLn('Size:', status.CurrHeapSize);
WriteLn('Used:', status.CurrHeapUsed);
Getmem(p, 1024);
WriteLn('Free:', status.CurrHeapFree);
WriteLn('Size:', status.CurrHeapSize);
WriteLn('Used:', status.CurrHeapUsed);
end.