On Sat, Apr 30, 2011 at 14:30, Rainer Stratmann <rainerstratm...@t-online.de> wrote: > 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
o := PtrUInt( @recvar.var1 ) - PtrUInt( @recvar ); o := PtrIUnt( @recvar.var2 ) - PtrUInt( @recvar ); o := PtrInUt( @recvar.var3 ) - PtrUInt( @recvar ); > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal