inttohex 是把数从10进制转化为16进制,但具体怎么用的,我运行delphi帮组上的程序却通不过。请问具体应该怎么用?

解决方案 »

  1.   

    结果表示是使用String的,不能直接用的!
    需要StrToInt('$'+HexString)的处理才可用根本就没看清楚Help的内容http://lysoft.7u7.net
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      i: Integer;
    begin
      Label1.Caption := '';
      for i := 1 to Length(Edit1.Text) do
      begin
        try
          Label1.Caption := Label1.Caption + IntToHex(StrToInt(Edit1.Text[i]),2) + ' ';
        except
          Beep;
        end;
      end;
    end;
      

  3.   

    IntToHex(StrToInt(Edit1.Text[i]),2) 
    IntToHex(Edit1.Text[i],2) 
    两个是不一样的
    function IntToHex(Value: Integer; Digits: Integer): string; overload;
    function IntToHex(Value: Int64; Digits: Integer): string; overload;IntToHex的参数1是Integer,或Int64
            Edit1.Text[i] 是char