Question

Delphi关于16进制

左边1个Edit,右边1个UpDown，想通过点击右边的UpDown，实现左边Edit以16进制也就是从00到FF的顺序来增减。但发现默认是10进制的，找了一晚资料都没找到解决的办法，麻烦有懂的高人给出完整代码，谢谢。

Answer 1

TEdit 的内容是你自己可以赋值的，你只需要自己做个10进制到16进制的转换而已

Answer 2

自己写代码,删除associate属性对应的控件.然后下面代码即可以.
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var
i: integer;
s: string;
begin
s:= Edit1.Text;
try
i:= StrToInt('$' + s); //转化成10进制
Except
ShowMessage('文本框文本不是16进制的数字');
exit;
end;
Edit1.Text:= IntToHex(i-1,2);
if Button = btNext then
Edit1.Text:= IntToHex(i+1,2);
end;
有问题再商讨,没问题可以结贴了.