procedure TForm1.Button1Click(Sender: TObject);
var
S:TFilestream;
a:array[0..255]of integer;
Newf:textfile;
B:string;begin
B:='lala';
if not fileexists(B) then
begin
assignfile(newf,B);
rewrite(newf);
closefile(newf);
end;s:=Tfilestream.Create(B,fmOpenReadwrite);
a[0]:=$FF;
a[1]:=$FE;
a[2]:=$FD;
a[3]:=$FC;
a[4]:=$FB;
a[5]:=$FA;
a[6]:=$EF;
a[7]:=$EE;
s.Write(a,8);
s.Free;end我这样保存8字节的16进制数,为什么保存后的文件我用winhex打开后是
ff 00 00 00 fe 00 00 00
新手,有错误的地方请指出
var
S:TFilestream;
a:array[0..255]of integer;
Newf:textfile;
B:string;begin
B:='lala';
if not fileexists(B) then
begin
assignfile(newf,B);
rewrite(newf);
closefile(newf);
end;s:=Tfilestream.Create(B,fmOpenReadwrite);
a[0]:=$FF;
a[1]:=$FE;
a[2]:=$FD;
a[3]:=$FC;
a[4]:=$FB;
a[5]:=$FA;
a[6]:=$EF;
a[7]:=$EE;
s.Write(a,8);
s.Free;end我这样保存8字节的16进制数,为什么保存后的文件我用winhex打开后是
ff 00 00 00 fe 00 00 00
新手,有错误的地方请指出
解决方案 »
- 请教:delphi webbrowser 浏览网页时报错
- 菜鸟问题,来抢分啊!
- ACCESS数据库中的当前时间函数是?就象sql server 中的Getdate()一样
- 请问在Fastreport如何做到这样的效果?
- 安装制作
- Dbgrid是否会更新数据,怎么不让他更新,同样的, dbedit等呢?
- 三个问题,有分的
- 我是delphi初学者,按照书本上说得却走不下去了,请各位高手指点迷津,急急急急急急急急急急急!!!!!!!!!!!
- 如何坐报表?请各位指点!!!
- 怎么把DLL放进EXE文件内并调用它?
- 用Indy的Idftpserver写的一个服务器
- 控件数组WindowProc事件没有sender参数怎么办? 怎么知道触发的是哪个控件?
a:array[0..255]of integer; 是 integer 类型
写入文件后是占用 4 字节的不知你想问什么?
原来是这样啊。integer占4字节。
那定义为Byte就行了吧。解决就结帐 谢谢