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.79 by yoffy, Sun Nov 23 05:45:31 2003 UTC revision 1.80 by yoffy, Sun Nov 23 09:25:26 2003 UTC
# Line 520  begin Line 520  begin
520                          sl.LoadFromFile(FileName);                          sl.LoadFromFile(FileName);
521    
522                  //2行目から(1行目はバージョン)                  //2行目から(1行目はバージョン)
523                  for i := 1 to sl.Count - 1 do begin                  for i := sl.Count - 1 downto 0 do begin
524                          Rec := ParseIndexLine(sl[i]);                          Rec := ParseIndexLine(sl[i]);
525    
526                          if usePlugIn then                          if usePlugIn then
527                                  ThreadItem := TThreadItem.Create(                                  ThreadItem := TThreadItem.Create(
528                                          Board.BoardPlugIn,                                          Board.BoardPlugIn,
529                                          Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) )                                          Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) )
530                          else                          else begin
531                                  ThreadItem := TThreadItem.Create(                                  ThreadItem := TThreadItem.Create(
532                                          nil,                                          nil,
533                                          Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) );                                          Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) );
534                                    
535                                    //IsLogFileチェック
536                                    ThreadItem.IsLogFile := False;
537                                    if FileList.Count <> 0 then begin
538                                            if FileList.Find( ThreadItem.FileName, Index ) then begin
539                                                    ThreadItem.IsLogFile := True;
540                                                    FileList.Delete( Index );
541                                            end;
542                                    end;
543                            end;
544                          ThreadItem.BeginUpdate;                          ThreadItem.BeginUpdate;
545                          ThreadItem.No := Rec.FNo;                          ThreadItem.No := Rec.FNo;
546                          ThreadItem.FileName := Rec.FFileName;                          ThreadItem.FileName := Rec.FFileName;
# Line 550  begin Line 560  begin
560                          ThreadItem.AgeSage := Rec.FAgeSage;                          ThreadItem.AgeSage := Rec.FAgeSage;
561                          ThreadItem.ParentBoard := Board;                          ThreadItem.ParentBoard := Board;
562    
                         //IsLogFileチェック  
                         ThreadItem.IsLogFile := False;  
                         if FileList.Count <> 0 then begin  
                                 if FileList.Find(ThreadItem.FileName, Index) then begin  
                                         ThreadItem.IsLogFile := True;  
                                         FileList.Delete(Index);  
                                 end;  
                         end;  
   
563                          //巡回リストに存在したら巡回フラグセット                          //巡回リストに存在したら巡回フラグセット
564                          if ThreadItem.IsLogFile then begin                          if ThreadItem.IsLogFile then begin
565                                  idx := RoundList.Find(ThreadItem);                                  idx := RoundList.Find(ThreadItem);

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

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