RotateLeft: 32-Bit Integer rotieren

[Neutral General]

Hallo,

So gehts:

Delphi-Quellcode:

asm
  mov cl, bits
  mov eax, zahl
  rol eax, cl
  mov zahl, eax
end;

Oder so:

Delphi-Quellcode:

function rol(Zahl: Integer; Bits: Byte): Integer;
asm
  xchg cl,dl
  rol eax, cl
end;

Delphi-Quellcode:

var zahl: UInt32;
    bits: UInt8;
begin
  Zahl := $80000000;
  bits := 1;
  Caption := IntToStr(rol(Zahl,bits));
end;