| 10513 |
TabList: TStringList; |
TabList: TStringList; |
| 10514 |
begin |
begin |
| 10515 |
TabList := TStringList.Create; |
TabList := TStringList.Create; |
| 10516 |
if oldURLs.Count <> newURLs.Count then |
if oldURLs.Count <> newURLs.Count then begin |
| 10517 |
|
TabList.Free; |
| 10518 |
Exit; |
Exit; |
| 10519 |
|
end; |
| 10520 |
//ここから、BoardのURLの変更 |
//ここから、BoardのURLの変更 |
| 10521 |
for j :=0 to oldURLs.Count - 1 do begin |
{ for j :=0 to oldURLs.Count - 1 do begin |
| 10522 |
for i :=0 to TabList.Count - 1 do begin |
for i :=0 to TabList.Count - 1 do begin |
| 10523 |
if TabList.Text = oldURLs[j] then |
if TabList.Text = oldURLs[j] then |
| 10524 |
TabList.Text := newURLs[j]; |
TabList.Text := newURLs[j]; |
| 10525 |
end; |
end; |
| 10526 |
end; |
end; } |
| 10527 |
//ここまで、BoardのURLの変更 |
//ここまで、BoardのURLの変更 |
| 10528 |
|
|
| 10529 |
//ここから、ThreadのURLの変更 |
//ここから、ThreadのURLの変更 |
| 10537 |
newBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
newBoardName := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/'; |
| 10538 |
|
|
| 10539 |
for j := 0 to TabList.Count - 1 do begin |
for j := 0 to TabList.Count - 1 do begin |
| 10540 |
tempString := TabList.Text; |
tempString := TabList[j]; |
| 10541 |
if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin |
if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin |
| 10542 |
tempString := StringReplace(tempString, oldHost, newHost,[]); |
tempString := StringReplace(tempString, oldHost, newHost,[]); |
| 10543 |
TabList.Text := tempString; |
TabList[j] := tempString; |
| 10544 |
end; |
end; |
| 10545 |
end; |
end; |
| 10546 |
end; |
end; |