Datentypen von String zu Byte und wieder zurück

[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;