把一段c#修改数据库代码 翻译成易语言

qaz5080

     d1:=adoqmyz.FieldByName('gem1').asinteger;
      d2:=adoqmyz.FieldByName('gem2').asinteger;
      id:=adoqmyz.FieldByName('id').asinteger;
      typeid:=adoqmyz.FieldByName('TYPE').asinteger;
      mh:=adoqmyz.FieldByName('magic3').asinteger;


function getitemsum(d1,d2,id,typeid,mh:int64):string;
var
  temp1,temp2:int64;
begin
temp1:=d1;
temp1:=temp1 and 255;
temp1:=arr1[temp1];
temp2:=7 and id;
temp2:=arr2[temp2];
temp1:=temp1+temp2;
temp2:=mh;
temp2:=temp2 and 3;
temp2:=arr2[temp2+8];
temp1:=temp1+temp2;
temp2:=typeid;
temp2:=temp2 xor d1;
temp2:=temp2+id;
temp1:=temp1+temp2;
temp2:=d2;
temp1:=temp1+temp2*8;
temp1:=temp1+typeid;
temp1:=temp1+d1;
temp1:=temp1+mh;
result:=inttostr(temp1);
end;