要求: inttohex() 这个函数不行。。它返回的类型为string。 需要返回dword 类型!!!
求解答。!!!想了很久没想明白。。唉。。
求解答。!!!想了很久没想明白。。唉。。
解决方案 »
- 这样声明抽象类有什么特别意义?
- 关于INTRWEB的问题
- deiphi调用PB光盘中自带的anywhere 6.0的数据库为什么不支持中文查询呢?
- DELPHI中定义PChar类型的字符串时需要自己分配和释放内存嘛?
- 求购档案管理软件(C/S、B/S不限),有意者点击
- 高手帮忙??Install Shield打包时候,怎么样才能在程序安装的时候自动建立数据库?
- 告急!delphi5怎样的到两个date值之间的完整的天数,要求返回整数,在线等!!
- 窗口继承,子窗口要做相同的操作,但是操作对象不同,祖先窗口中应该怎么处理?
- 这三本是好书吗?
- 如何制作第三方控件使用的包?
- 哪位朋友研究过baidump3批量下载的这个源码?ICS控件报错。
- 想学习fastreport设计报表,原一直用quickreport
可以用Byte数组
你不显示出来, 就没有十进制和二进制之分...
内存里面都是2进制屏幕上凡是你能看见的 都是字符串 string 和图片 array of Tcolor!
哪有int?
的确,存储的,除了bcd码,都是一样的,与进制无关
如
ShowMessage(IntToStr($12+1));
结果等于19
表示16进制的12(就是10进制的18)+1不知道你问的是不是这个意思
function RGBToColor(R,G,B:Byte): TColor;
begin
Result:=B Shl 16 Or G Shl 8 Or R;
end;procedure TForm1.Button1Click(Sender: TObject);
var r,g,b :integer;
begin
r:=strtoint(edit1.text);
g:=strtoint(edit2.text);
b:=strtoint(edit3.text);
form1.color:=rgbtocolor(r,g,b);
EDIT4.Text:=colortostring(form1.color);
end;楼主你应该要的这个效果十进制转成16进制,然后再显示出来