blob: 7b9f38da481d2e78fcf38da9fc24982ea8f86cfa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
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.
|
