var
recordfile:TFile;
ifeof:Boolean;
begin
assignfile(recordfile, 'c:\record.dat');
reset(recordfile, 1);
blockread(recordfile, X , sizeof(X ), ifeof);
end;
end;
recordfile:TFile;
ifeof:Boolean;
begin
assignfile(recordfile, 'c:\record.dat');
reset(recordfile, 1);
blockread(recordfile, X , sizeof(X ), ifeof);
end;
end;
解决方案 »
- 初学者请教两个DELPHI小问题!
- TTreeview控件
- 为什么我用INDY的FTP的DEMO登陆个FTP服务器。但内容显示的是乱码?请问为什么啊?
- 我有一软件项目,二层的数据库软件,急找人做,详情见贴子内容,谢谢
- 零时表怎么搞,!
- 如何改变Delphi的快捷键
- 如何清楚TImage控件内的图像?
- 就这样、、、
- 急!我将源代码全部搬到另外的电脑上,在安装COM+时, 发现“Install com+ project”是灰色的,不可用!
- 结构数组???
- 大家好,向大家提个问题“如何动态控制控件的显示”分只能加这么多,以后再补,请进来看看!
- 5500元装台靓机-----装机之最佳方案!!!!!!!!
closefile(recordfile);
blockread 的第四个参数不是数字型的吗?
这个讨论,已经我回答过。搜索Packed就可以找到。
ifeof: integer;
但我试了好像还是按4个字节对齐的::(
to wangzh(独孤求问):呵呵,谢谢你