18 lines
374 B
ObjectPascal
18 lines
374 B
ObjectPascal
program testmem;
|
|
var s1:^string[2048];
|
|
s2:^string[2048];
|
|
begin
|
|
writeln(MemAvail);
|
|
writeln(MaxAvail);
|
|
|
|
writeln('new s1 and s2');
|
|
new(s1);
|
|
new(s2);
|
|
writeln(MemAvail);
|
|
writeln(MaxAvail);
|
|
|
|
writeln('dispose s1');
|
|
dispose(s1);
|
|
writeln(MemAvail);
|
|
writeln(MaxAvail);
|
|
end.
|