LowByte und Highbyte beschreiben

[Dax]

Delphi-Quellcode:

procedure SetLowByte(var sInt: SmallInt; const b: Byte);
begin
  sInt := (sInt and $FF00) or b;
end;

procedure SetHighByte(var sInt: SmallInt; const b: Byte);
begin
  sInt := (sInt and $FF) or (b shl 8);
end;