LowByte und Highbyte beschreiben

[DeddyH]

Mal aus dem Kopf:

Delphi-Quellcode:

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

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

P.S.: Sirius hat übrigens Recht, bei $0000FFFF sind bereits alle Bits gesetzt.