UC知道delphi 中读取十六时制转换
来源：百度知道 编辑：UC知道 时间：2024/06/14 16:43:34
delphi 中读取十六时制转换如'003de',转换成十进制，主要我想保留成五位数的的一个字符串'00990';请教这个函数怎么写;急急
function Hextoint(Inputhex: String): String;
var
i,k,j,strlen: integer;
tmp: string;
begin
Strlen:=length(Inputhex);
for i:=1 to Strlen do
if Inputhex[i]<>'0' then
Break;
tmp:='$'+Inputhex;
K:=strtoint(tmp);
tmp:='';
for J:=1 to i-1 do
tmp:=tmp+'0';
Result:=tmp+inttostr(K);
end;
自己加一个按钮和两个Edit控件（Edit控件分别改名为InputEdit和OutputEdit）,然后双击按钮添加事件，事件代码如下：
var
StrOri:DWord;
StrAim:String;
begin
StrOri:=StrToInt('$'+InputEdit.Text);
StrAim:=IntToStr(StrOri);
OutputEdit.Text:=Copy(StrAim,Length(StrAim)-4,5);
end;
j:=$003de;
st:=format('%.5d',[j]);