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

Reply via email to