指针的第二个数据的读取

Program a(input, output);
var
g               : file of longint;
buffer, buf     : ^char;
i, l            : longint;
f               : file;
r               : word;

{Procedure GetLongint(Var Buffer; ID : Longint; Var L : Longint);
          Begin
          Move(PChar(Buffer)[ID * 4], L, 4);
          End;
}
Begin
assign(g, 'temp.dat');
rewrite(g);
for i := 1 to 100 do
    begin
    write(g, i);
    end;
close(g);

assign(f, 'temp.dat');
reset(f,1);

getmem(buffer, 4 * 100);
blockread(f,buffer^, sizeof(i) * 100, r);

close(f);

writeln('--------------');
i := 3;
buf := ptr(seg(buffer^), ofs(buffer^) + (i - 1) * sizeof(LongInt));
move(buf^, l, 4);        {Get Value}
writeln(l);
l := 10;

move(l, buf^, 4);        {Set Value}
move(buf^, l, 4);        {Get Value}

writeln(l);
freemem(buffer, 4 * 120);
End.