t_id
674
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525684985 | 948227 | True | False | Successfully run |
Record count: 1
{ Program 1 : memory waste dummy test } USES SysUtils; procedure test_it; var sRec : TSearchRec; begin writeln(memAvail); findFirst('c:*.*',faVolumeId,sRec); findClose(sRec); writeln(sRec.name); writeln(memAvail); { 288 bytes waste ! } end; begin Writeln('Before call ',MemAvail); test_it; Writeln('After call : ',MemAvail); end. (*{ Program 2 : correct } USES Dos; var sRec : searchRec; begin writeln(memAvail); findFirst('c:*.*',volumeid,sRec); findClose(sRec); writeln(sRec.name); writeln(memAvail); { no memory waste ! } end. *)