t_id
1172
t_adddate
2003/10/28
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950858682 | 1015808 | True | False | Successfully run |
Record count: 1
type smallword=word; Type LocalHeader = Record Time : Longint; End; Type PkZipObject = Object Buf : longint; Constructor ZIPInit; Procedure FindFirstEntry; Virtual; End; {PkzipObject} PkzipPtr = ^PkzipObject; Constructor PkzipObject.ZIPInit; Begin End; Procedure PkzipObject.FindFirstEntry; var LocalHeaderBuf: LocalHeader ABSOLUTE buf; Begin LocalHeaderBuf.Time:=12341234; End; var o : PkzipObject; begin o.ZIPInit; o.FindFirstEntry; if o.Buf<>12341234 then begin writeln('error'); halt(1); end; End.