mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
40 lines
611 B
ObjectPascal
40 lines
611 B
ObjectPascal
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.
|