При запуске, программа занимает 1056 Кб. После выделения памяти - 1072 Кб. Но после освобождения количество занимаемой памяти не уменьшается!
Вот код программки:
Код: Выделить всё
type mass=array [1..1000] of integer;
var s:^mass;
i:word;
begin
Readln;
GetMem(s,SizeOf(integer)*1000);
Writeln('GetMem - OK');
Readln;
for i:=1 to 1000 do s^[i]:=1000;
Writeln('Fill Array - OK');
Readln;
FreeMem(s,SizeOf(integer)*1000);
s:=nil;
Writeln('FreeMem - OK');
Readln;
end.
При использовании New и Despose результат тот-же. Я что-то не так делаю или загвоздка в другом?
