Delphi中文件拷贝方法集合
一、使用文件流的方法进行拷贝，当然。同样的道理，你也可以使用内存流等方法进行文件的拷贝，原理是一样的。
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream.Create(targetfilename, fmopenwrite or fmcreate);
try
f2.Copyfrom(f1, f1.Size);
finally
f2.Free;
end;
finally
f1.Free;
end;
end;
二、使用BLOCKREAD和BLOACKWRITE的方法进行文件的拷贝。
Procedure FileCopy(const fromfile, Tofile: string);
var
F1, F2: file;
NumRead, Numwritten: integer;
Buf: array[1..2048] of char;
begin
AssignFile(F1, fromfile);
reset(F1, 1);
AssignFile(F2, Tofile);
Rewrite(F2, 1);
repeat
BlockRead(F1, Buf, sizeof(Buf), NumRead);
BlockWrite(F2, Buf, NumRead, Numwritten);
until (NumRead = 0) or (Numwritten <> NumRead);
closefile(F1);
closefile(F2);
end;
三、使用API文件进行文件的复制
procedure CopyFile(fromFileName, ToFileName: string);
var
f1, f2: file;
begin
AssignFile(f1, fromFileName);
AssignFile(f2, ToFileName);
reset(f1);
try
Rewrite(f2);
try
if Lzcopy(TfileRec(f1).handle, TfileRec(f2).handle) < 0
then
raise EinoutError.Create('文件复制错误');
finally
closefile(f1);
end;
finally
closefile(f2);
end;
end;
四、Windows API函数 实现文件的拷贝
function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;
参数说明：
lpExistingFileName ： 原文件名称；
lpNewFileName ： 目标文件名称
bFailIfExists &nbs
相关文档：
bool是LongBool类型。
Delphi中定义了四种布尔类型：Boolean，ByteBool，WordBool和LongBool。后面三种布尔类型是为了与其他语言兼容而引入的，一般情况下建议使用Boolean类型。
这四种类型的布尔值占用内存的数量如下：
Boolean 1 Byte
ByteBool 1 Byte
WordBool 2 Bytes（1 Word）
LongBool 4 Bytes（2 Words）
对 ......
百度知道真垃圾，那么大的一个企业，就给那么点空间，提个问1500字限制了。想想来csdn，挂了一个星期都没人理，不知道是我分太少，还是真的高手都不来这里？？？期待一个英雄的到来，菜鸟我在这里拜谢了！！其实这根本不是生命难题，我才刚刚学，问不出生命高深的题目来：
rT;
delphi7 ,DB:oracle
问题运行工程文件exe不 ......
3.2 用户登录方案
在进入一个系统时，必须先在登录窗体中输入正确的用户名和密码才能进入。这样可以确保系统的安全性和保密性，登录窗体的制作按照系统的大小及用处，可以分为不同的登录窗体样式，在系统第一次登录前，首先要对操作员信息进行相应的设置。本节将对登录窗体及操作员管理窗体的制作过程进行详细的说明 ......
3.2 用户登录方案
在进入一个系统时，必须先在登录窗体中输入正确的用户名和密码才能进入。这样可以确保系统的安全性和保密性，登录窗体的制作按照系统的大小及用处，可以分为不同的登录窗体样式，在系统第一次登录前，首先要对操作员信息进行相应的设置。本节将对登录窗体及操作员管理窗体的制作过程进行详细的说明 ......
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
