Nur 5 Bit kopieren

[Leuselator]

das vorangegangene Beispiel löscht die anderen Bits (welche Du vielleicht noch brauchst...

Delphi-Quellcode:

var a,
    b,
    c word; 
    Bits : Integer;
    Shift :Integer;
    Maske : Word;
begin
  Bits  := 5;
  Shift := 4; // du willst also bit 4,5,6,7 und 8 übertragen
  Mask := (Word(trunc(power(2,Bits+Shift)-1))) xor (Word(trunc(power(2,Shift)-1)));
  a := IrgendeinWert;
  b := EinAndererWert;
  b := b or Mask;  // in b sind nun alle 5 Bits gesetzt
  b := b xor Mask; // nun sind sie alle gelöscht
  c := a and Mask; // c enthält nur die gesuchten Bits aus a
  b := b or c;     // die 5 Bits sind in b genauso gesetzt wie in a

//  Kurzversion:
  b := ((b or Mask) xor Mask) or (a and Mask);
// nach Assarbad:
  b := (b and (not Mask)) or (a and Mask);

end

Gruß
[edit]Zu langsam und lang nicht so schön wie Assarbad [/Edit]