Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 2252 |
|
|
| 2253 |
SetLinkBar; |
SetLinkBar; |
| 2254 |
|
|
| 2255 |
|
// |
| 2256 |
|
TabsOpenAction.Execute; |
| 2257 |
end; |
end; |
| 2258 |
|
|
| 2259 |
//ボードツリー設定 |
//ボードツリー設定 |
| 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 |
| 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をチャックしながらやってかなきゃいけない。 |
| 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 |
|
|
| 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 |
|
|
|