菜鸟问题，数据类型错误求助

Question

function TForm1.gs_xor(a1, a2, a3: LongWord): LongWord;
var i,Flag,returnvalue:LongWord;
begin
  returnvalue := 0;
  for i := 1 to 32 do
  begin
  IF (a1 mod 2) = (a3 mod 2) then flag := 0 else flag := 1;
  a1 := a1 div 2;
   a3 := a3 div 2;
  returnvalue := returnvalue + (flag * Power(2,(i - 1)));
  end;
  result := returnvalue;
end;
以上函数，执行Power(2,(i-1))时，发生
[Error] Unit1.pas(40): Incompatible types: 'Cardinal' and 'Extended'
请问数据类型该如何修改

Answer 1

power的参数得是浮点数

Answer 2

Power(2.0,(double(i) - 1)

Answer 3

Power(2.0,(double(i) - 1)
有Double这个函数？

Answer 4

啥函数这是把 i 强制类型转换成 double ， double 是双精度浮点数类型

Answer 5

  returnvalue := returnvalue + trunc(flag * Power(2,(i - 1)));