Question

请高手帮我转换代码delphi转易语言

function Dword2Hex(Val:DWORD;IsMove:Boolean=True):string;//整数转位移HEX
var
rHex:string;
begin
rHex:=IntToHex(Val,2);
if IsMove then
begin
case Length(rHex) of
6:rHex:=Copy(rHex,5,2)+ Copy(rHex,3,2)+ Copy(rHex,1,2)+'00';
7:rHex:=Copy(rHex,6,2)+ Copy(rHex,4,2)+ Copy(rHex,2,2)+'0'+ Copy(rHex,1,1);
8:rHex:=Copy(rHex,7,2)+ Copy(rHex,5,2)+ Copy(rHex,3,2)+ Copy(rHex,1,2);
end;
end;

Result:=rHex;
end;
这个不是求结果的
是函数

用于移位的

Answer 1

用易语言来说，这个是delphi的子程序。在易语言里和 取十六进制文本() 这个的意思是一样的。最后得到的结果也是一样。。不用转换，你直接在易语言里用 取十六进制文本() 这个就可以了。

在delphi里调用你要转换的那个子程序：
EDIT1.Text:=Dword2Hex(9999,true);
得到的结果是 270F

在易语言里用
编辑框1.内容 ＝ 取十六进制文本(9999)

得到的结果也是 270F
======================================
晕，楼主看来你是对delphi是一点也不了解。你提出这个问题，给出的这些代码，最后调用的就是一个函数：
Dword2Hex(integer,Boolean):string;
而这个调用的函数和易语言的：
取十六进制文本() 是一个意思。

Answer 2

什么叫易语言？没学过。