如何编写进制转换??? - delphi吧

level 3

马到1234567 楼主

假设,
两个Tedit控件,一个按钮控件.
一个用于输入数字,一个用于显示转换的结果\\\
比如.当我在edit1里输入64,点转换按钮.edit2.Text里就显示40的结果
即10进制转换成16进制...
如何编写代码...???
我COPY了网上的方法.编译都不成功

2014年08月03日 01点08分 1

level 3

马到1234567 楼主

IntToHex函数直接用不了...

2014年08月03日 01点08分 2

level 3

马到1234567 楼主

procedure TForm1.btn1Click(Sender: TObject);
var
sCh: String;
begin
sCh := edit1.text;
edit2.Text :=IntToHex(Ord(sCh);
end;
end.
报错

2014年08月03日 02点08分 3

level 3

马到1234567 楼主

[Error] Unit1.pas(35): Incompatible types
类型错误????
要如何定义?

2014年08月03日 02点08分 4

jianhaoran1230：ord()是取字符的ascii码，字符串转换为整型要用StrToInt()

2014年08月03日 02点08分

回复 jianhaoran1230 :嗯...谢谢.... 按照提示修改成功了...得到的结果直接mod C(C是10进制的),报错了.要定义什么吗?

2014年08月03日 02点08分

回复马到1234567 :说错了 C 是16进制的.

2014年08月03日 02点08分

mod函数只支持数值运算.还得再转换一次吗?

2014年08月03日 02点08分

level 3

马到1234567 楼主

晕倒了 16进制之间的 mod 运算怎么这么麻烦啊

2014年08月03日 03点08分 5

level 3

马到1234567 楼主

16进制 40 mod 16进制的C
这么简单居然这么繁琐

2014年08月03日 03点08分 6

level 10

楼主，智商低就不要搞IT 了，搬砖工资高啊。

2014年08月04日 03点08分 7