BillsEditor/CU/FileOprUnit.pas

{
   **************************************

   描述： 本单元主要用一个类来管理对文件
          的操作，而不是直接用API等方法。

   **************************************
}

unit FileOprUnit;

interface

uses
  Windows,
  SysUtils;

type
  TFileOpr = class
  public
    procedure DeleteFile(const aFileName: string);
    function CopyFile(const aSrcPath, aDestPath: string): Boolean;
    function FileExists(const aFileName: string): Boolean;
    function DirectoryExists(const aDir: string): Boolean;
    procedure CreateDirectory(const aDir: string);
    function ExtractFilePath(const aFilePath: string): string;
    procedure RenameFile(const aOldFileName, aNewFileName: string);
  end;

implementation

{ TFileOpr }

function TFileOpr.CopyFile(const aSrcPath, aDestPath: string): Boolean;
begin
  Result := Windows.CopyFile(PChar(aSrcPath), PChar(aDestPath), True);
end;

procedure TFileOpr.CreateDirectory(const aDir: string);
begin
  SysUtils.ForceDirectories(aDir);
end;

procedure TFileOpr.DeleteFile(const aFileName: string);
begin
  Windows.DeleteFile(PChar(aFileName));
end;

function TFileOpr.DirectoryExists(const aDir: string): Boolean;
begin
  Result := SysUtils.DirectoryExists(aDir);
end;

function TFileOpr.ExtractFilePath(const aFilePath: string): string;
begin
  Result := SysUtils.ExtractFilePath(aFilePath);
end;

function TFileOpr.FileExists(const aFileName: string): Boolean;
begin
  Result := SysUtils.FileExists(aFileName);
end;

procedure TFileOpr.RenameFile(const aOldFileName, aNewFileName: string);
begin
  SysUtils.RenameFile(aOldFileName,aNewFileName);
end;

end.