[fpc-pascal] How to get the offset of a record

[Rainer Stratmann]

In Turbopascal it was possible with offs()

type
 rectype = record
  var1 : longint;
  var2 : longint;
  var3 : boolean;
 end;

var
 o : longint;
 recvar : rectype;

 o := offs( recvar.var1 );  // --> 0
 o := offs( recvar.var2 );  // --> 4
 o := offs( recvar.var3 );  // --> 8