如果你将来还要读区数据的话,建议使用平面文件(FLAT-FILE)的方法做
解决方案 »
- 对整数型数据进行过滤
- 问个关于MaskEdit1问题
- 如何升级控件,保留功能!
- 数据提供程序或其他服务返回 E_FAIL 状体 ???高手帮忙啊,好几天了还解决不了阿,着急啊
- 如何按一定的格式导出成为一个WORD文件?
- 我使用coolbar,在带区1,band1的control属性中误操作,把表单的其它控件引入,不知怎么让他还原
- 能不能用ADO访问EXCEL?
- 如何判断一个edit1.text是integer型的内容
- TreeView内部的节点创建以后,我想实现运行时可以用鼠标拖动来更改其中节点的顺序,该怎么办?
- 关于Firebird数据库操作数组字段的问题!
- 如何将一个文件以流形式打开?????????
- 又一个弱智问题
对象.writestring(参数)。搞定。
2、用控件例如:memo,richedit,edit等都有SAVE命令:savetofile()..........
我的e_M : [email protected] 记得要给分喔
var
TmpStream,DataStream : TFileStream ;... try
dm1.CDSTmp.SaveToFile(DefaultDir + '\tmp.cds' ); if FileExists(DefaultDir + '\' + FileNameMake{创建文件名} + '.mds') then
begin
if MessageDlg('数据文件已经存在,是否覆盖?',mtConfirmation,
[mbYes, mbNo], 0) = mrno then
Abort;
end; TmpStream := TFileStream.Create(DefaultDir + '\' + FileNameMake
+ '.mds',fmCreate);
TmpStream.Write(FileInfoMake[1],length(FileInfoMake)); DataStream := TFileStream.Create(DefaultDir +'\tmp.cds',fmOpenRead);
TmpStream.CopyFrom(DataStream,DataStream.Size);
DataStream.Free;
TmpStream.Free;
Except
on E:Exception do
begin
MessageBox(Application.Handle,pchar(E.Message),pchar('注意'),0);
Abort;
end;
end;