Aus einem Word das High und Low Byte extrahieren

[DelphiManiac]

Hallo ich habe folgendes Problem,

ich habe ein Word:

Delphi-Quellcode:

..
var
 einWord:Word;
 HighByte:Byte;
 LowByte:Byte;
begin
 einWord:=$AAFF;
...
 HighByte:= GiveMeHighByte(einWord); // ich will auf das Highbyte (hier $AA)
 LowByte:=  GiveMeLowByte(einWord);  // und das Lowbyte hier($FF) zurückgeliefert bekommen
...

Gibt es hier für eine Delphi Funktion ??
Oder muss ich über die Hex (String)-Umwandlung gehen???

Danke schonmal im Vorraus.

[3_of_8]

Es gibt die Hi und Lo-Funktionen, geht aber auch selber ganz leicht:

Delphi-Quellcode:

hibyte:=myword shr 8;
lobyte:=myword and $FF;

Ein Word sieht ja so aus:

Code:

hh hh hh hh  ll ll ll ll

Wenn du das jetzt um 8 nach rechts shiftest, siehts so aus:

Code:

00 00 00 00 hh hh hh hh

Und bei and $FF siehts so aus:

Code:

00 00 00 00 ll ll ll ll

[richard_boderich]

gibts dafuer nicht die Lo("wert") und Hi("wert") anweisungen ?

richard

[3_of_8]

Nein, Low/High geben den Maximal- und Minimalwert für einen Typen zurück.

[sirius]

viele Wege wführen nach Rom:

Delphi-Quellcode:

highword:=wert div 65536;
lowword:=wert mod 65536;

Edit:

Delphi-Quellcode:

highbyte:=lowword div 256;
lowbyte:=lowword mod 256;

Oder noch ganz anders:

Delphi-Quellcode:

asm
  xor eax,eax
  mov eax,dword ptr wert
  mov lowword, ax
  mov highbyte, ah
  mov lowbyte, al
end;

[DelphiManiac]

Hey danke sirus,

ja hatte es erst mit High() u. Low() probiert,

hatte die Funktion auch schonmal angewendet, wusste nur nicht mehr wie sie heißt...

Jetzt weiß ich es Hi u. Lo. heißt... danke.

[3_of_8]

@Sirius: Die ersten beiden Methoden sind viel umständlicher und langsamer, die letzte ist wirklich unnötig kompliziert. Inline-Assembler ist ne tolle Sache, aber man kann es auch übertreiben. ;)

[SirThornberry]

man kann sich auch einfach einen record der gleichen größe erstellen, das ganze auf den Recordtyp casten und dann entsprechend auf die Werte zugreifen. Oder man nimmt die Speicheradresse interpretiert diese als PByte und addiert halt das eine Byte dazu um auf das nächste Byte zu gelangen.

[3_of_8]

...wobei man aber beachten muss, dass wenn x die Adresse ist, das Lo-Byte bei x und das Hi-Byte bei x+1 liegt.

[Phantom1]

Zitat:

Zitat von SirThornberry

man kann sich auch einfach einen record der gleichen größe erstellen, das ganze auf den Recordtyp casten und dann entsprechend auf die Werte zugreifen. Oder man nimmt die Speicheradresse interpretiert diese als PByte und addiert halt das eine Byte dazu um auf das nächste Byte zu gelangen.

Ich glaube es gibt schon ein TWordRec, kann aber im moment nicht nachschauen.

mfg

[Muetze1]

Zitat:

Zitat von 3_of_8

Nein, Low/High geben den Maximal- und Minimalwert für einen Typen zurück.

richard_boderich hatte nichts von diesen Funktionen geschrieben :warn:

[3_of_8]

Hat er wohl, er hat seinen Beitrag danach editiert.

[QuickAndDirty]

@Muetze: Sich zu vertun wäre nicht so peinlich wie das jetzt :hi:

[Muetze1]

Das ist mir sowas von Schnuppe, aber für dumme Kommentare bist du ja anscheinend auch zu haben...

[QuickAndDirty]

Danke schön.
Ich ziehe meinen Hut, Muetze.

[Dax]

Zitat:

Zitat von SirThornberry

man kann sich auch einfach einen record der gleichen größe erstellen, das ganze auf den Recordtyp casten und dann entsprechend auf die Werte zugreifen. Oder man nimmt die Speicheradresse interpretiert diese als PByte und addiert halt das eine Byte dazu um auf das nächste Byte zu gelangen.

Da sind variante Records aber schöner.. :)

Delphi-Quellcode:

type
  TWordByteConversion = packed record
    case Integer of
      0: (TheWord: Word);
      1: (High, Low: Byte);
  end;

[3_of_8]

Aber auch da muss man das Little Endian Format beachten:

Delphi-Quellcode:

type
  TWordByteConversion = packed record
    case Integer of
      0: (TheWord: Word);
      1: (Low, High: Byte);
  end;