Datentypen von String zu Byte und wieder zurück

[Blup]

Der zweite Operand ist ein Byte, welches zusätzlich maskiert ist.

1.Operand	2.Operand signifikante Bits	entspricht
Byte	3	a shl (b mod 8)
Word	4	a shl (b mod 16)
Longword	5	a shl (b mod 32)
Int64	6	a shl (b mod 64)

Byte(-1) -> 255
(255 mod 32) -> 31

(Longword(a) shr -1) -> (a shr 15)

Das funktioniert also nicht, abgesehen davon müsste die Maske für B $2 sein.

[Blup]

So kann es funktionieren und ist übersichtlich:

Delphi-Quellcode:

 for i := 31 downto 0 do
 begin
   Result := Result shl 1;
   Result := Result or ((B shr i) and $1);
   Result := Result shl 1;
   Result := Result or ((A shr i) and $1);
 end;

[Blup]

Richtig müsste es heißen: (Longword(a) shr -1) -> (a shr 31)