VF,什么老东西
一定要在代码中实现吗。在deskvar
filename:string;//目标库文件名
source,target: TFileStream;
begin
source:=TFileStream.Create('源库文件名',fmOpenRead );//支持路径、扩展名;
try
target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
ShowMessage('成功备份到'+filename+'!!!');
finally
target.Free;
end;
finally
source.Free;
end;
top中不行吗再
一定要在代码中实现吗。在deskvar
filename:string;//目标库文件名
source,target: TFileStream;
begin
source:=TFileStream.Create('源库文件名',fmOpenRead );//支持路径、扩展名;
try
target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
ShowMessage('成功备份到'+filename+'!!!');
finally
target.Free;
end;
finally
source.Free;
end;
top中不行吗再
解决方案 »
- Delphi 好书共享
- 月亮兄来领分喽,还有群里的兄弟们
- 排序后颜色显示问题
- 请教大侠:'这是什么形状?'怎么翻译?
- 高分请教语音查询系统中有关语音卡功能封装成.DLL的问题?
- 请问在局域网中,两台电脑,除去文件共享方式,用什么方法进行两机文件传输最好
- 不好意思我把问题说具体些:
- 这个是不是倒分?
- 客户端是不是一定要用TclientDataset,直接用TadoDataset修改服务器地址不行吗?这两者有什么区别,请高手帮忙。
- 登陆程序
- (在线等待)!!如何解决出现“ [DBNETLIB] [Connection Open (connect()).)] Sql Server doesnot exist or access denied” 的问题
- 如何监视发送出去的e-mail的内容?
var
filename:string;//目标库文件名
source,target: TFileStream;
begin
source:=TFileStream.Create('源库文件名',fmOpenRead );//支持路径、扩展名;
try
target:=TFileStream.Create(filename,fmOpenWrite or fmCreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
ShowMessage('成功备份到'+filename+'!!!');
finally
target.Free;
end;
finally
source.Free;
end;
可能是那个dbf,而你的dbf应该是foxpro dbf文件