精易论坛

标题: 把一段c#修改数据库代码翻译成易语言 [打印本页]

作者: qaz5080 时间: 2017-4-10 19:12
标题: 把一段c#修改数据库代码翻译成易语言
   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;

欢迎光临精易论坛 (https://125.confly.eu.org/)