var temp:tmemorystream; Binarr:array of byte; len:integer; i:integer; b:byte;
temp:=tmemorystream.create(); temp.loadfromfile(); len:=temp.size; temp.position:=0; i:=0; setlength(binarr,len+1); while len>0 then begin temp.read(b,1); binarr[i]:=b; dec(len); inc(i); end;
var temp:tmemorystream; Binarr:array of byte; len:integer; i:integer; b:byte;
temp:=tmemorystream.create(); temp.loadfromfile(); len:=temp.size; temp.position:=0; i:=0; setlength(binarr,len+1); while len>0 do//---写错关键字了,汗...... begin temp.read(b,1); binarr[i]:=b; dec(len); inc(i); end;
to dinglinger(红辣椒)程序倒是能运行了,但是只是把字转化成了字节显示,显示的是ASCII码,不是二进制码
temp:tmemorystream;
Binarr:array of byte;
len:integer;
temp:=tmemorystream.create();
temp.loadfromfile();
len:=temp.size;
temp.position:=0;
setlength(binarr,len+1);
temp.read(binarr,len);
temp:tmemorystream;
Binarr:array of byte;
len:integer;
i:integer;
b:byte;
temp:=tmemorystream.create();
temp.loadfromfile();
len:=temp.size;
temp.position:=0;
i:=0;
setlength(binarr,len+1);
while len>0 then
begin
temp.read(b,1);
binarr[i]:=b;
dec(len);
inc(i);
end;
temp:tmemorystream;
Binarr:array of byte;
len:integer;
i:integer;
b:byte;
temp:=tmemorystream.create();
temp.loadfromfile();
len:=temp.size;
temp.position:=0;
i:=0;
setlength(binarr,len+1);
while len>0 do//---写错关键字了,汗......
begin
temp.read(b,1);
binarr[i]:=b;
dec(len);
inc(i);
end;
二进制是由一组0、1表示的数据,ASCII是由八个0、1组成的字符,通常人们所说的ASCII码是ASCII码全集中的一部分,也就是可视的(子集,人们常用于书写的字符)