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.473 by h677, Sat Oct 23 08:58:16 2004 UTC revision 1.474 by genyakun, Sun Oct 24 13:24:30 2004 UTC
# Line 10513  var Line 10513  var
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の変更
# Line 10535  begin Line 10537  begin
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;

Legend:
Removed from v.1.473  
changed lines
  Added in v.1.474

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