Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.131 by h677, Mon Apr 26 16:24:25 2004 UTC revision 1.132 by h677, Thu Apr 29 22:15:22 2004 UTC
# Line 536  begin Line 536  begin
536          //IsLogFile用DATファイルリスト          //IsLogFile用DATファイルリスト
537          //GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False, False);          //GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False, False);
538          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);
   
539          //前回異常終了時用Tmpファイルリスト          //前回異常終了時用Tmpファイルリスト
540          //GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False);          //GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False);
541          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);          GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);
# Line 598  begin Line 597  begin
597    
598                                  //前回異常終了時チェック                                  //前回異常終了時チェック
599                                  if TmpFileList.Count <> 0 then begin                                  if TmpFileList.Count <> 0 then begin
600                                          Index := TmpFileList.IndexOf(ChangeFileExt(ThreadItem.FileName, '.tmp'));                                          if TmpFileList.Find(ChangeFileExt(ThreadItem.FileName, '.tmp'), Index) then begin
                                         //if TmpFileList.Find(ChangeFileExt(ThreadItem.FileName, '.tmp'), Index) then begin  
                                         if Index <> -1 then begin  
601                                                  ini := TMemIniFile.Create(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList[Index]);                                                  ini := TMemIniFile.Create(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList[Index]);
602                                                  try                                                  try
603                                                          //ThreadItem.RoundDate := ini.ReadDateTime('Setting', 'RoundDate', ZERO_DATE);                                                          //ThreadItem.RoundDate := ini.ReadDateTime('Setting', 'RoundDate', ZERO_DATE);
# Line 764  procedure TGikoSys.WriteThreadDat(Board: Line 761  procedure TGikoSys.WriteThreadDat(Board:
761  //      Values: array[Boolean] of string = ('0', '1');  //      Values: array[Boolean] of string = ('0', '1');
762  var  var
763          i: integer;          i: integer;
764      Index: Integer;          Index: Integer;
765      tmpSize: Integer;          tmpSize: Integer;
766          FileName: string;          FileName: string;
767          sl: TStringList;          sl: TStringList;
768          s: string;          s: string;
769          TmpFileList: TStringList;          TmpFileList: TStringList;
770      ini : TMemIniFIle;          ini : TMemIniFIle;
771  begin  begin
772          if not Board.IsThreadDatRead then          if not Board.IsThreadDatRead then
773                  Exit;                  Exit;
# Line 778  begin Line 775  begin
775          ForceDirectoriesEx( ExtractFilePath( FileName ) );          ForceDirectoriesEx( ExtractFilePath( FileName ) );
776    
777          sl := TStringList.Create;          sl := TStringList.Create;
778           TmpFileList := TStringList.Create;          TmpFileList := TStringList.Create;
779            TmpFileList.Sorted := true;
780          try          try
781                  //GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, true);                  //GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, true);
782                  GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);                  GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);
   
783                  sl.BeginUpdate;                  sl.BeginUpdate;
784                  sl.Add(FOLDER_INDEX_VERSION);                  sl.Add(FOLDER_INDEX_VERSION);
785                  for i := 0 to Board.Count - 1 do begin                  for i := 0 to Board.Count - 1 do begin
786                          if Board.Items[i].No = 0 then                          //if Board.Items[i].No = 0 then
787                                  Board.Items[i].No := i + 1;                          //      Board.Items[i].No := i + 1;
788                            Board.Items[i].No := i + 1;
789    
790                          if TmpFileList.Count <> 0 then begin                          if TmpFileList.Count <> 0 then begin
791                                  //if TmpFileList.Find(ChangeFileExt(Board.Items[i].FileName, '.tmp'), Index) then begin                                  if TmpFileList.Find(ChangeFileExt(Board.Items[i].FileName, '.tmp'), Index) then begin
792                                  Index := TmpFileList.IndexOf(ChangeFileExt(Board.Items[i].FileName, '.tmp'));                                          ini := TMemIniFile.Create(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList.Strings[Index]);
                                 if Index <> -1 then begin  
                                         ini := TMemIniFile.Create(ChangeFileExt(Board.Items[Index].GetThreadFileName, '.tmp'));  
793                                          try                                          try
794                                                  tmpSize := ini.ReadInteger('Setting', 'Size', 0);                                                  tmpSize := ini.ReadInteger('Setting', 'Size', 0);
795                                                  if Board.Items[i].Size <  tmpSize then begin                                                  if Board.Items[i].Size <  tmpSize then begin

Legend:
Removed from v.1.131  
changed lines
  Added in v.1.132

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26