Datentypen von String zu Byte und wieder zurück

[Blup]

Wenn dann so:

Delphi-Quellcode:

 for i := 0 to 31 do
  begin
    Result := Result shl 1;
    Result := Result or (B shr 31);
    B := B shl 1;

    Result := Result shl 1;
    Result := Result or (A shr 31);
    A := A shl 1;
  end;