LowByte und Highbyte beschreiben

[Alex_ITA01]

Hallo zusammen,
ich habe folgende Situation:
Auf einen SmallInt soll ich einmal ein Highbyte schreiben und einmal ein Lowbyte.

LowByte:
SmallInt := MeinWert and $0000FFFF

HighByte:
SmallInt := MeinWert shr 16

Das geht auch soweit aber wie ist es möglich, dass wenn ich das Highbye beschreiben will auf mein SmallInt, dass ich das vorhandene LowByte nicht mit überschreibe (es soll also vorhanden bleiben). Andersrum genauso. Wenn ich das LowByte beschreibe, soll das Highbyte nicht mit beschrieben werden.

Ich hoffe ihr könnt mir da helfen...
Danke
MFG Alex

[sirius]

am besten etwa so:

Delphi-Quellcode:

type TmySmallint= {packed} record
       case Boolean of
         True:  (SI:smallint);
         False: (LoByte:byte; HiByte:Byte);
end;

Damit hast du einen neuen Typ, den du verwenden kannst.


Edit:
btw.: Was ist denn bei dir Smallint? Mit (MeinWert and $0000FFFF) besetzt du den gesamten Smallint und nicht nur das LoByte.

[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.

[uligerhardt]

Oder

Delphi-Quellcode:

uses
  SysUtils;

  //...
  WordRec(YourSmallint).Lo := 1;
  WordRec(YourSmallint).Hi := 2;

[Muetze1]

Zitat:

Zitat von 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;

Deine Funktionen haben ein Problem: was ist, wenn schon ein Wert <> 0 in dem jeweiligen Byte Anteil steht? Du fügst deine Bits mit oder hinzu - aber die schon bestehenden bleiben stehen. Somit erreichst du damit nicht sicher das, was gefordert war bzw. du eigentlich erreichen wolltest.

[DeddyH]

Zitat:

Zitat von Alex_ITA01

Das geht auch soweit aber wie ist es möglich, dass wenn ich das Highbye beschreiben will auf mein SmallInt, dass ich das vorhandene LowByte nicht mit überschreibe (es soll also vorhanden bleiben). Andersrum genauso. Wenn ich das LowByte beschreibe, soll das Highbyte nicht mit beschrieben werden.

[Muetze1]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von Alex_ITA01

Das geht auch soweit aber wie ist es möglich, dass wenn ich das Highbye beschreiben will auf mein SmallInt, dass ich das vorhandene LowByte nicht mit überschreibe (es soll also vorhanden bleiben). Andersrum genauso. Wenn ich das LowByte beschreibe, soll das Highbyte nicht mit beschrieben werden.

Ja und? Davon habe ich nicht geredet. Was ist wenn das LowByte schon einen Wert 3 hat und ich mit deiner Funktion das LowByte mit einer 4 belege. Dann habe ich nachher im LowByte eine 7 und nicht die angegebene 4. Nun klarer?

[DeddyH]

OK, da hast Du Recht.

[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;