Caption := Format('%x', [StrToIntDef('$' + Edit1.Text, 0)]);

解决方案 »

  1.   

    问题是不是这样的:十进制的16转化为十六进制的$10,如果是,下面的或许有用!
    var i:integer;
    var hex1:string;
    begin
       i:=strtoint(edit1.text);
       hex1:='$'+inttohex(i,2);
    end;
      

  2.   

    我要的结果为16进制的数呢edit.text输入220而我需要的为220已是16进制数即字符型'220' 直接变为16进制数 $220 
    结果为16进制的数
      

  3.   

    谢谢!!!StrToInt(format('%d',[StrToIntDef('$' + EdtPort.Text, 0)]))给分
      

  4.   

    edit2.text := IntToStr(StrToInt('$' + Edit1.Text))