RotateLeft: 32-Bit Integer rotieren

[Angel4585]

ahhh also das drei nachn links ist wie wenn ich mit 8 multipliziere, also so würds auch gehen:

Delphi-Quellcode:

function RotateLeft(Zahl, Count: UInt32): UInt32;
begin
  //Result := Zahl shr (SizeOf(Zahl) shl 3 - Count) or Zahl shl Count;
  Result := Zahl shr (SizeOf(Zahl)*8 - Count) or Zahl shl Count;
end;