Código Delphi [-] var i: Integer; b1,b2: Byte; begin b1:= i and $FF; b2:= (i shr 8) and $FF; end;
var i: Integer; b1,b2: Byte; begin b1:= i and $FF; b2:= (i shr 8) and $FF; end;