Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.475 by h677, Mon Oct 25 11:19:22 2004 UTC revision 1.476 by h677, Mon Oct 25 11:39:50 2004 UTC
# Line 2252  begin Line 2252  begin
2252    
2253          SetLinkBar;          SetLinkBar;
2254    
2255            //
2256            TabsOpenAction.Execute;
2257  end;  end;
2258    
2259  //ボードツリー設定  //ボードツリー設定
# Line 10501  begin Line 10503  begin
10503  end;  end;
10504    
10505  procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);  procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
10506    const
10507            Filename = 'tab.sav';
10508            bFilename = '~tab.sav';
10509  var  var
10510          i: Integer;          i, j: Integer;
10511                                  j: Integer;          tempString: string;
10512                                  tempString: string;          tmpURL: string;
10513                                  tmpURL: string;          oldHost: string;
10514                                  oldHost: string;          oldBoardName: string;
10515                                  oldBoardName: string;          newHost: string;
10516                                  newHost: string;          newBoardName: string;
10517                                  newBoardName: string;          TabList: TStringList;
                                 TabList: TStringList;  
10518  begin  begin
10519    
10520          if oldURLs.Count <> newURLs.Count then begin          if oldURLs.Count <> newURLs.Count then begin
# Line 10519  begin Line 10523  begin
10523          if FileExists(GikoSys.GetAppDir + 'tab.sav') then begin          if FileExists(GikoSys.GetAppDir + 'tab.sav') then begin
10524                  TabList := TStringList.Create;                  TabList := TStringList.Create;
10525                  try                  try
10526                          TabList.LoadFromFile(GikoSys.GetAppDir + 'tab.sav');                          TabList.LoadFromFile(GikoSys.GetAppDir + Filename);
10527    
10528                          //ここから、ThreadのURLの変更                          //ここから、ThreadのURLの変更
10529                          //面倒だけどthreadはそれぞれURLをチャックしながらやってかなきゃいけない。                          //面倒だけどthreadはそれぞれURLをチャックしながらやってかなきゃいけない。
# Line 10540  begin Line 10544  begin
10544                                          end;                                          end;
10545                          end;                          end;
10546                          //ここまで、ThreadのURLの変更                          //ここまで、ThreadのURLの変更
10547    
10548                            if FileExists( GikoSys.GetAppDir + Filename) then begin
10549                                    if FileExists( GikoSys.GetAppDir + bFilename) then
10550                                            DeleteFile(GikoSys.GetAppDir + bFilename);
10551    
10552                                    //バックアップを作る。
10553                                    RenameFile(GikoSys.GetAppDir + Filename, GikoSys.GetAppDir + bFilename);
10554                            end;
10555    
10556                            TabList.SaveToFile(GikoSys.GetAppDir + Filename);
10557                  finally                  finally
10558              TabList.Free;                          TabList.Free;
10559                  end;                  end;
10560          end;          end;
10561    
# Line 11217  begin Line 11231  begin
11231          try          try
11232                  if GetTabURLs(SaveStringList) then begin                  if GetTabURLs(SaveStringList) then begin
11233                          SaveStringList.SaveToFile(GikoSys.GetAppDir + Filename);                          SaveStringList.SaveToFile(GikoSys.GetAppDir + Filename);
11234                            Result := true;
11235                  end;                  end;
11236          finally          finally
11237                  SaveStringList.Free;                  SaveStringList.Free;

Legend:
Removed from v.1.475  
changed lines
  Added in v.1.476

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