我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数调用的方法判断是传值还是串地址！！必须看函数的
定义，只有定义才能说明是传值还是传地址，再说一遍，这不是C，C++！！
我们看到的函数定义是这样的
procedure Move(const Source; var Dest; Count: Integer);
从定义上看，很清楚，Dest是传地址，而不是传值，那么Source呢，其实大家不太清楚
这里的Const修饰符有两个含义，第一个大家都知道就是Source一常量方式在函数体内，
不可以改变它的值，第二个可能知道的人不多，那就是Source的传递方式和Dest一样，
是传地址！也就是说const和var一样，都是传地址，只不过一个在函数内不允许修改，
另一个是修改后影响调用的变量值
所以Move是传地址，而恰恰不是传值！
Move(const Source; var Dest; Count: Integer);
......
Delphi中实现文件拷贝的三种方法
1．调用API函数
procedure CopyFile(fromFileName,ToFileName:string);
var
f1,f2:file;
Begin
AssignFile(f1,fromFileName); file://指定源文件名
AssignFile(f2,ToFileName); file://指定目标文件名
Reset(f1);
Try
Rewrite(f2);
Try
If Lzcopy(TfileRec(f1).handle,TfileRec(f2).Handle)<0
Then
Raise EinoutError.creat('文件复制错误')
Finally
CloseFile(f2); file://关闭 f2
End;
Finally
Until length(sLine)<=0;
End;
End;
2.文件流
procedure copyfile;
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;
3．利用内存块读写buffer实现
Procudure FileCopy(const fromfile,Tofile:string);
Var
F1,F2:file;
NumRead,Numwritten:word;
Buf:array [1..2048] of char;
Begin
AssignFile(F1,fromfile);
Reset(F1,1);
AssignFile(F2,Tofile);
Rewrite(F2,1);
Repeat
BlockRead(F1,bu ......
一、使用文件流的方法进行拷贝，当然。同样的道理，你也可以使用内存流等方法进行文件的拷贝，原理是一样的。
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);
unti ......
Delphi拷贝目录(含子目录)的方法
要实现目录级的拷贝，可以利用Windows API函数ShFileOperation( )，其函数声明如下：
WINSHELLAPI int WINAPI SHFileOperation(
LPSHFILEOPSTRUCT lpFileOp
);
实例：
新建一个工程，其程序示例如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellApi;
//注意：必须引用ShellApi单元
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:TObject);
var
OpStruc:TSHFileOpStruct;
frombuf,tobuf:Array[0..128]of Char;
begin
FillChar(frombuf,Sizeof(frombuf),0);
FillChar(tobuf,sizeof(tobuf),0);
//假设将C:\temp1目录下的所有文件复制到C:\temp2目录下
StrPCopy(frombuf,'C:\temp1\*.*'); //(\*.*)可去掉
S ......
在Delphi应用程序中使用DLL
Delphi不仅可调用C＋＋产生的DLL模块，同样C＋＋程序也可调用Delphi所产生的DLL部件。这样交互调用，无须重复开发，大大缩短了生产周期。
Delphi与VisualBasic、VisualFoxPro等软件一样，属于RAD工具（快速应用开发工具）。适合开发32位或16位／32位混合应用程序。Delphi所使用的程序语言是ObjectPascal，是结构化、面向对象的编译型语言，具有高执行效率、可重用性、易维护性，及较强的异常处理能力、类封装能力等。VB与Delphi相比，VB不能对程序进行编译，只能解释执行，更重要的不同是Delphi具有较强的继承性，Delphi的应用程序可编译DLL模块，VB却无法编译，只能调用C编译的DLL。而Delphi不仅可调用C＋＋产生的DLL模块，同样C＋＋程序也可调用Delphi所产生的DLL部件。这样交互调用，无须重复开发，大大缩短了生产周期。
一、用Delphi创建DLL
Delphi的DLL创建并不复杂，下面向大家介绍Delphi的DLL创建方法。
1、首先创建一个新的DLL项目（NewProject），因为DLL与调用它的主程序要分开编译。如果DLL模块已经建立在调用它的项目中（Project），则将它的窗体（Form）从Project� ......
简洁写法
JavaScript里我最喜欢的一种东西就是生成对象和数组的简写方法。在过去，如果你想创建一个对象，你需要这样：
var car = new Object(); car.colour = 'red'; car.wheels = 4; car.hubcaps = 'spinning'; car.age = 4;
下面的写法能够达到同样的效果：
var car = { colour:'red', wheels:4, hubcaps:'spinning', age:4 }
简单多了，你不需要反复使用这个对象的名称。这样car就定义好了，也许你会遇到invalidUserInSession的问题，这只有你在使用IE时会碰到，只要记住一点，不要右大括号前面写分号，你就不会有麻烦。另外一个十分方便的简写是针对数组的。传统的定义数组的方法是这样：
var moviesThatNeedBetterWriters = new Array( 'Transformers','Transformers2','Avatar','Indiana Jones 4' );
简写版的是这样：
var moviesThatNeedBetterWriters& ......
最新文章 :