在Delphi中dat文件是怎么用的呢 我想把图片存到这个文件里面。。
解决方案 »
- 我用了一个query1.close但此query1前并没有打开,所以系统报错,怎么用一个判断避免query1是否打开?
- 三層架構的數據儲存問題
- Timage如何实现pan功能?
- 怎么样判断一个控件是自动生成的还是手动添加的组件
- 小弟刚学Fastreport,请教一个用Fastreport的主从表例子。在线等待,解决即得分。
- 关于delphi7.0中DBExpress的小问题
- 在打印很多的内容时,我如何按某个键来停止打印,比如ESC键?谢谢!
- 请问"Canvas does not allow drawing"怎么解决?
- Delphi 2010 RUN 灰色
- 关于子字符串的一个小问题,高分求教
- 注册窗口不能关闭?
- 高手帮忙看看错误,invalid pointer operation
文件头要加上图片的相关信息
i: string[100];
user: string[100];
d: TDateTime;
StationNO: string[100];
end;class procedure TUtilForm.WritPacke(str: Tpay);
var
p: file of Tpay;
t1: Tpay;
begin
system.AssignFile(p, ExtractFilePath(paramStr(0)) + 'user.dat');
system.Reset(p);
Seek(p, 0);
t1.i := IntToStr(Random(6));
t1.user := str.user;
t1.d := Date;
t1.StationNO := str.StationNO;
system.Write(p, t1);
CloseFile(p);end;
//给个简单的