关于数据库备份的问题

[hksl]

我用到两个函数
function frm_sjbf.MyGetFileSize(FileName: string): Integer;
var
hFile: THandle;
begin
hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hFile <> INVALID_HANDLE_VALUE then
begin
result :=GetFileSize(hFile, nil);
ShowMessage(IntToStr(result));
end
else
result := 0;
end;
function TForm15.PubFuncCopyFile(SourceFile, TargetFile: String): boolean;
begin
if FileExists(TargetFile) then
if not DeleteFile(TargetFile) then
begin // 目标文件已存在，但无法删除
result := false;
Exit;
end;
LMemoryStream := TMemoryStream.Create;
try
LMemoryStream.LoadFromFile(SourceFile);
LMemoryStream.SaveToFile(TargetFile);
result := true;
except
result := false;
end;
FreeAndNil(LMemoryStream);
end;

运行时出错，提示是这样的
[Warning] sjbf.pas(7): Unit 'FileCtrl' is specific to a platform
[Error] sjbf.pas(50): Identifier redeclared: 'frm_sjbf'
[Error] sjbf.pas(54): Undeclared identifier: 'FileName'
[Error] sjbf.pas(64): Function needs result type
……
请问怎样解决，我是个新手

[sunny518]

50行 变量重定义 你定义了两次 frm_fjbf
54行 filename没有定义
64行 函数没有返回类型 意思是函数的后面没有定义返回类型

[firetoucher]

其他的up楼上的
建议你装一个词霸之类的翻译软件

function frm_sjbf.MyGetFileSize(FileName: string): Integer;
var
hFile: THandle;
begin
hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil,
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if hFile <> INVALID_HANDLE_VALUE then
begin
result :=GetFileSize(hFile, nil);
ShowMessage(IntToStr(result));
end
else
result := 0;
end;
function TForm15.PubFuncCopyFile(SourceFile, TargetFile: String): boolean;
begin
result:= true;///////////+++++++++++++++++++++++++
if FileExists(TargetFile) then
if not DeleteFile(TargetFile) then
begin // 目标文件已存在，但无法删除
result := false;
Exit;
end;
LMemoryStream := TMemoryStream.Create;
try
LMemoryStream.LoadFromFile(SourceFile);
LMemoryStream.SaveToFile(TargetFile);
result := true;
except
result := false;
end;
FreeAndNil(LMemoryStream);

end;