谁帮我把这段VB代码转换成Delphi代码 10
Functionsr(ByValx,ByValn)Ifn=0Thensr=xElseDimyy=xAnd&H7FFFFFFFDimzIfn=32-1Thenz=0Else...
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 展开
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 展开
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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询