unit_code.pas

电子阅读器,适合处学者使用和学习.有意见联系我 .

Unit Unit_Code;

Interface
Uses SysUtils;
Function GetNTitle(): String;
Function HaveNTitle(STitle: String): Boolean; //判断Tree中是否有该标题
Function DeletePath(mDirName: String): Boolean; //删除非空目录
Function Addlog(SWrong: String): Boolean;
Function GetBookName(SAllFileName: String): String;
Implementation
Uses Unit_Main;
//删除非空目录
Function DeletePath(mDirName: String): Boolean; {   返回删除指定目录是否成功   }
Var
  vSearchRec: TSearchRec;
  vPathName: String;
  K: Integer;
Begin
  Result:=True;
  vPathName:=mDirName+'\*.*';
  K:=FindFirst(vPathName, faAnyFile, vSearchRec);
  While K=0 Do Begin
    If (vSearchRec.Attr And faDirectory>0)And
      (Pos(vSearchRec.Name, '..')=0) Then Begin
      FileSetAttr(mDirName+'\'+vSearchRec.Name, faDirectory);
      Result:=DeletePath(mDirName+'\'+vSearchRec.Name);
    End Else If Pos(vSearchRec.Name, '..')=0 Then Begin
      FileSetAttr(mDirName+'\'+vSearchRec.Name, 0);
      Result:=DeleteFile(PChar(mDirName+'\'+vSearchRec.Name));
    End;
    If Not Result Then Break;
    K:=FindNext(vSearchRec);
  End;
  FindClose(vSearchRec);
  Result:=RemoveDir(mDirName);
End; {   DeletePath   }
Function GetNTitle(): String;
Var
  i, j: Integer;
  BHaveSameName: Boolean;
Begin
  If F_Main.TreeView.Items.Count=0 Then
  Begin
    GetNTitle:='新标题1';
    Exit;
  End;
  BHaveSameName:=false;
  For i:=1 To 1000 Do
  Begin
    BHaveSameName:=false;
    For j:=0 To F_Main.TreeView.Items.Count-1 Do
      If F_Main.TreeView.Items.Item[j].Text='新标题'+IntToStr(i) Then
        BHaveSameName:=True;
    If BHaveSameName=false Then
    Begin
      GetNTitle:='新标题'+IntToStr(i);
      Break;
    End;
  End;
End;
//判断Tree中是否有该标题
Function HaveNTitle(STitle: String): Boolean;
Var
  j: Integer;
Begin
  HaveNTitle:=false;
  If F_Main.TreeView.Items.Count=0 Then
    Exit;
  For j:=0 To F_Main.TreeView.Items.Count-1 Do
    If F_Main.TreeView.Items.Item[j].Text=STitle Then
      HaveNTitle:=True;
End;
//加入错误log
Function Addlog(SWrong: String): Boolean;
Var
  F: TextFile;
  S: String;
  mytime: TDateTime;
Begin
  mytime:=Now;
  S:=DateTimeToStr(Now)+'  Wrong:'+SWrong;
  AssignFile(F, Unit_Main.Smulu+'Log.txt'); //打开文件
  If Not FileExists(Unit_Main.Smulu+'Log.txt') Then
    Rewrite(F)
  Else
    Append(F);
  Writeln(F, S);
  CloseFile(F); //关闭文件
End;
Function GetBookName(SAllFileName: String): String; //获得文件名称
Var
  Str1, Str2: String;
Begin
  Str1:=ExtractFileExt(SAllFileName); //获取扩展名.txt
  Str2:=ExtractFileName(SAllFileName); //获取文件名test01.txt
  SetLength(Str2, Length(Str2)-Length(Str1)); //将扩展名部分抛弃
  GetBookName:=Str2;
End;
End.