mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 18:59:30 +02:00
23 lines
306 B
ObjectPascal
23 lines
306 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.
|