Question

请解释下面delphi代码每句的含义

function File_Copy ( Const SourceFileName,TargetFileName :String):string;
var S,T :TFileStream;
Begin
if not fileexists(SourceFileName) then exit;
S:=TFileStream.Create(SourceFileName,fmShareDenyNone);
result:='no';
try
T :=TFileStream.Create(TargetFileName,fmOpenWrite or fmCreate);
try
T.CopyFrom(S,S.Size);
result:='ok';
finally
T.Free;
end;
finally
S.Free;
end;

end;

Answer 1

function File_Copy ( Const SourceFileName,TargetFileName :String):string;
var S,T :TFileStream;
Begin
//判断源文件是否存在，不存在则退出，fileexists是系统函数
if not fileexists(SourceFileName) then exit;
//装载源文件，创建一个文件流对象
S:=TFileStream.Create(SourceFileName,fmShareDenyNone);
result:='no';
try
//装载目标文件，创建一个文件流对象
T :=TFileStream.Create(TargetFileName,fmOpenWrite or fmCreate);
try
//从源文件复制所有内容到目标文件，要复制的字节数=S.Size是源文件总长度
T.CopyFrom(S,S.Size);
result:='ok';
finally
T.Free;
end;
finally
S.Free;
end;
end;

Answer 2

function File_Copy ( Const SourceFileName,TargetFileName :String):string;
var S,T :TFileStream;
Begin
if not fileexists(SourceFileName) then exit; //源文件不存在，则退出函数
S:=TFileStream.Create(SourceFileName,fmShareDenyNone); //以共享方式创建源文件流
result:='no';
try
T :=TFileStream.Create(TargetFileName,fmOpenWrite or fmCreate); //以读写方式创建目标文件流
try
T.CopyFrom(S,S.Size); //将源文件流复制到目标文件流
result:='ok';
finally
T.Free;
end;
finally
S.Free;
end;

end;