[Delphi] Jak dokonać rozkładu liczby na LSB i MSB

[gwozdex]

Witam! Szukałem w helpie ale nic nie znalazłem...Chodzi mi o "wyłupanie" z liczby 2- bajtowej bajtu starszego i młodszego. Myślałem ze polecenia LOW i HIGH załatwią sprawę, niestety się myliłem bo one służą do czegoś zupełnie innego. Napisałem taki oto programik (fragment):

Kod: Zaznacz cały

procedure TForm1.Button1Click(Sender: TObject);
var
l: word;
MSB, LSB: byte;
begin
  l:= strtoint(labelededit1.Text);
  LSB:= l and 255;
  MSB:= l and 65280;
  labelededit2.Text:= inttostr(MSB);
  labelededit3.Text:= inttostr(LSB) ;
end;

Bajt młodszy wyświetla się poprawnie, ale MSB nie... Proszę o wskazówki!
Pozdrawiam!

[joon]

Coś podobnego w Pascalu robiło się dzieląc liczbę dwu bajtowa przez 256 bez reszty, tak mi się wydaje przynajmniej. Dawno już Pascala na oczy nie widziałem

[ZbeeGin]

Nie przesunąłeś bitów o osiem pozycji w prawo.

[gwozdex]

Nie przesunąłeś bitów o osiem pozycji w prawo.

Mam rozumieć że w zamian operacji:

Kod: Zaznacz cały

MSB:= l and 65280

polecasz przesunąć "w dół" starszą część liczby a potem ponownie
wykonać polecenie

Kod: Zaznacz cały

MSB:= l and 256

.
Może jeszcze inaczej??
Pozdrawiam i dziekuję!

[elektronWielki]

sprawdź to:

Kod: Zaznacz cały

procedure TForm1.Button1Click(Sender: TObject);
var
l: word;
MSB, LSB: byte;
begin
  l:= strtoint(labelededit1.Text);
  LSB:= byte(l);
  MSB:= byte(l shr 8);
  labelededit2.Text:= inttostr(MSB);
  labelededit3.Text:= inttostr(LSB) ;
end;

[gwozdex]

elektronWielki
Pięknie to zrobiłeś.
Dziękuję za pomoc.

[jakubzz]

Witam,
to ja jeszcze zaproponuje takie rozwiązanie:

Kod: Zaznacz cały

MSB:= l div 256;
LSB:= l mod 256;