Re: Absolute

["Andrzej"]

A nie prościej zrobić to na rzutowaniu typów?

  type TLongIntCast = record
    case Integer of
     0: ( Value: Longint );
     1: ( Values: array[0..3] of byte );
  end;

var
  a: LongInt;
...
a := 1234;

TLongIntCast(a).Values[0] := 1
TLongIntCast(a).Values[0] := 2



pozdrófka...
Andrzej