blob: 8e3d2147be9983bd196306c655e75d4ceada6c1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ 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.
|
