比如我有一个整数,可以确定它的大小从0..1000,
现在我想将它用3字节来保存,请问该如何做。
现在我想将它用3字节来保存,请问该如何做。
解决方案 »
- delphi7可以编辑自带的VCL控件的源码吗?
- 使用TIdHTTP(indy)的get函数获取asp网页内容时,如果URL中有中文参数,无法获取内容,为什么?
- 寻求MapX控件
- 初级问题,哪位帮忙解释一下create方法?
- 一个小问题,请求大侠们帮助......................................................
- 高手请过来
- 一个关于sql的小问题。在线等待
- 用D6+ORACLE用什么连接方式最好,在线等待,满意就给分
- 用query控件sql语句对数据排序后,想依次排名次(即1,2,3...)并显示在dbgrid中?
- 关于数据库中字段属性的问题,为什么字段值显示为MEMO,它是什么类型,我在DBGRID上该如何显示。
- 安装ehlib 2.5
- 菜鸟问题
var
n,i:integer;
by:array[0..2] of byte;//0最高位,2为中位,3为最低位
begin
n:=strtointdef(edit1.Text,-1);//n:0-1000;
if n=-1 then
exit;
// n:=1000;
i:=2;
while(n>0) and (i>=0) do//while(n>0)
begin
by[i]:=n mod 16;//余数是低位
i:=i-1;
n:=n div 16;
end;
edit2.Text:=inttostr(by[0])+'/ '+inttostr(by[1])+'/ '+inttostr(by[2]);
end;
I: Integer;
b: array [0..2] of Byte;
begin
I := 100;
Move(i, b, sizeof(b));
ShowMessage(IntToStr(b[0]));
ShowMessage(IntToStr(b[1]));
ShowMessage(IntToStr(b[2]));
end;