i:= Inputbox('输入','设置水表表号','');
我想在输入框中输入一个表号,然后转换成16进制进行运算
比如这样 U:= ($5a) +($a5)+转换为十六进制后的i,最好怎么定义,麻烦各位高手指点

解决方案 »

  1.   

       label15.Caption:= StrToHexStr(Str[1])  ;
      显示的数字是一个十六进制数字,我想把他转化为10进制怎么弄
      

  2.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Edit1.Text := Format('%d',[StrToInt('$11F')]);
    end;
      

  3.   

    首先你要確定輸入到單板機中的參數是什麼型的?如果輸入是字符串類型的,可以將10進制轉為16進制字符串作為參數:
    i := 11;//十進制
    showmessage(format('%x',[i]));//顯示為 B,十六進制。
      

  4.   

     label15.Caption:=label15.Caption+ StrToHexStr(Str[1])  ;
    现在lable15显示的是串口返回的第一个字符串但是我在把他转化为10进制现在在label15上面的时候就不显示了,上面问题啊,我后面用的是HexStrToStr