糟糕~~不会操作二进制数!!!(50分)

  • 主题发起人 主题发起人 loshita
  • 开始时间 开始时间
L

loshita

Unregistered / Unconfirmed
GUEST, unregistred user!
1.在db数据库中建立一个字段,用来放二进制数,用什么类型?byte?
2.对该字段的读写?
3.在delphi6中建立二进制变量是如何写的?
4.假如有一个二进制数.我要把第n位set成0,应该如何做?
 
INTEGER就可以,要设置某位可以用逻辑运算符
 
同上,整型就OK啦。
定义的时候可以这样
const LIMIT_SPECIMEN_XGBB = $8; 表示成十六进制
或自己写转换函数

function IntToBin(Value: integer;Size: Integer): String;
var
i: Integer;
begin
Result:='';
for i:=Size downto 0 do
begin
if Value and (1 shl i)<>0 then
Result:=Result+'1'
else
Result:=Result+'0';
end;
end;

function BinToInt(Value: String): LongInt;
var
i,Size: Integer;
begin
Result:=0;
Size:=Length(Value);
for i:=Size downto 0 do
begin
if Copy(Value,i,1)='1' then
Result:=Result+(1 shl i);
end;
end;
 
后退
顶部