|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
AW: RotateLeft: 32-Bit Integer rotieren
17. Aug 2011, 09:42
Von Assembler hab ich auch keinen Plan, aber macht diese Funktion, was Du willst?
Delphi-Quellcode:
function RotateLeft(Zahl, Count: UInt32): UInt32;
begin
Result := Zahl shr (SizeOf(Zahl) shl 3 - Count) or Zahl shl Count;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|