mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 17:59:37 +02:00
22 lines
305 B
ObjectPascal
22 lines
305 B
ObjectPascal
{ Program 1 : memory waste
|
|
dummy test }
|
|
|
|
USES SysUtils,erroru;
|
|
|
|
procedure test_it;
|
|
var
|
|
sRec : TSearchRec;
|
|
begin
|
|
findFirst('c:\*.*',faVolumeId,sRec);
|
|
findClose(sRec);
|
|
writeln(sRec.name);
|
|
end;
|
|
|
|
var
|
|
mem : sizeint;
|
|
begin
|
|
mem:=0;
|
|
DoMem(mem);
|
|
test_it;
|
|
DoMem(mem);
|
|
end. |