Doch, kann ich, aber
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;
In diesem Fall wird das ja nur benutzt, um nacheinander jedes Bit auszulesen und in diesem Fall kann man einfach auf der anderen Seite auslesen, anstatt im Kreis zu schieben.
[edit]
jupp
[edit2]
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;
Delphi-Quellcode:
for i := 31 downto 0 do
begin
Result := Result shl 2;
Result := Result or ((B shr (i-1)) and $1) // schiebt SHR bei -1 nach links?
or ((A shr i) and $1);
end;
?