Aufsplitte einer Integer-Variable in 1 Bytes

[haderlump]

Hallo zusammen
für eine Serielle Schnittstelle muß ich eine Integer-Variable in zwei Bytes aufspalten, also LSB uns MSB.
Wie mache ich das denn am Besten, ich hab mir den Wolf gesucht und nix gefunden. Gibt es da eine Funktion, oder muß ich das per Teilen und Rest machen?
Gruß Fritz

[Vbxler]

Das einfachste wäre vermutlich über einen Record mit varianten Anteil:

Code: Alles auswählen

type
  Tunion = record
     Case Integer Of
       0: (i: Smallint);
       1: (s: array[0..1] of byte);
     end; 
var
  myUnion     : Tunion;
  iEingabe    : Integer = 0;
begin
  myUnion.i        := iEingabe;
  lblErgebnis.Caption := Format ('Die Der Inhalt der Integer:  %d.%d',[myUnion.s[1],myUnion.s[0]]);

Das geht auch in die andere Richtung, die Byts beschreiben und die Speicherstelle i enthält das Ergebnis.

[mischi]

dafür gibt es prinzipiell zwei Varianten: entweder expliziter Code in Pascal oder mittels einer Datenstruktur (varianter Record), bei der der Compiler die Arbeit übernimmt.

1) mittels Code:

Code: Alles auswählen

var
  myword: word;
  lsb, msb: byte;
begin
  myword := 12345;
  lsb := myword;   (* Das gibt erstaunlicherweise nur bei shortint eine Warnung, aber nicht bei word *)
  msb := myword shr 8;
  writeln ('myword: ', binStr(myword, 16));
  writeln ('lsb:    ', '        ', binStr(lsb, 8));
  writeln ('msb:    ', binStr(msb, 8));
end.
 

2) mittels Datenstruktur (hängt aber vermutlich von der endianess des Prozessors ab):

Code: Alles auswählen

var
  number: record case integer of
    1: (myword  : word);
    2: (lsb, msb: byte);
  end;
begin
  number.myword := 12345;
  writeln ('number.myword: ', binStr(myword, 16));
  writeln ('number.lsb:    ', '        ', binStr(lsb, 8));
  writeln ('number.msb:    ', binStr(msb, 8));
end.
 

Grüße - Mischi

[mse]

z.B.

Code: Alles auswählen

 
 int32: integer;
 int16: smallint;
 b0,b1,b2,b3: byte;
[...]
 b0:= int32;
 b1:= int32 shr 8;
 b2:= int32 shr 16;
 b3:= int32 shr 24;
[...]
 b0:= lo(int16);
 b1:= hi(int16);
end;
 

Integer ist ausser im Turbo Pascal Modus 4-Bytes breit.
Die Lösung von Vbxler ist "endianess" abhängig.

[willi4willi]

Ich hätte es so gemacht:

Code: Alles auswählen

 
program Project1;
 
var i : integer;
      b : array[0..1] of byte absolute i;
begin
  i:=123123;
  WriteLn('integer=',i:10);
  WriteLn('byte=',b[0]:10,b[1]:10);
  readln;
end.
 
 

Ergebnis:

Code: Alles auswählen

 
integer=    123123
byte=       243       224
 

[theo]

Bleibt die Frage, welche Bytes eigentlich interessieren.
Einen 32bit (4-Byte) Datentypen kann man nicht wirklich mit 2 Bytes abbilden.

Alternativ kann man afaik auch mit
Lo(Lo(int32));
oder
Hi(Lo(int32));
etc. arbeiten.

[haderlump]

Danke Leute, das war erschöpfend, und vor allem, das was ich brauche ist echt easy.
Again what learned.

Gruß Fritz

[mischi]

Again what learned.

LOL