Question

谁帮我把这段VB代码转换成Delphi代码

Function sr(ByVal x, ByVal n)
If n = 0 Then
sr = x
Else
Dim y
y = x And &H7FFFFFFF
Dim z
If n = 32 - 1 Then
z = 0
Else
z = y \ CLng(2 ^ n)
End If
If y <> x Then
z = z Or CLng(2 ^ (32 - n - 1))
End If
sr = z
End If
End Function

Answer 1

function sr(x,n:DWord):DWord;
var
y,z:DWord;
begin
if n=0 then
Result := x
else begin
y := x and $7fffffff;
if n=32-1 then
z := 0
else
z := y div (2^n);
if y<>x then
z := z or (2^(32-n-1))
Result := z;
end;
end;