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.399 by h677, Wed Aug 18 15:16:26 2004 UTC revision 1.400 by genyakun, Sun Aug 22 02:42:29 2004 UTC
# Line 10069  begin Line 10069  begin
10069  end;  end;
10070    
10071  procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);  procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
10072    var
10073            i: Integer;
10074            j: Integer;
10075            tempString: string;
10076            tmpURL: string;
10077            oldHost: string;
10078            oldBoardName: string;
10079            newHost: string;
10080            newBoardName: string;
10081            TabList: TStringList;
10082  begin  begin
10083          //RoundList.URLReplace(oldURLs, newURLs);      TabList := TStringList.Create;
10084        if oldURLs.Count <> newURLs.Count then
10085            Exit;
10086        //ここから、BoardのURLの変更
10087        for j :=0 to oldURLs.Count - 1 do begin
10088                    for i :=0 to TabList.Count - 1 do begin
10089                            if TabList.Text = oldURLs[j] then
10090                    TabList.Text := newURLs[j];
10091            end;
10092        end;
10093        //ここまで、BoardのURLの変更
10094    
10095        //ここから、ThreadのURLの変更
10096        //面倒だけどthreadはそれぞれURLをチャックしながらやってかなきゃいけない。
10097        for i := 0 to oldURLs.Count - 1 do begin
10098            tmpURL                  := Copy(oldURLs[i], 1, Length(oldURLs[i]) -1);
10099            oldHost                 := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
10100            oldBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
10101            tmpURL                  := Copy(newURLs[i], 1, Length(newURLs[i]) -1);
10102            newHost                 := Copy(tmpURL, 1, LastDelimiter('/', tmpURL) );
10103            newBoardName    := Copy(tmpURL, LastDelimiter('/', tmpURL), Length(tmpURL) ) + '/';
10104    
10105            for j := 0 to TabList.Count - 1 do begin
10106                tempString := TabList.Text;
10107                if ( AnsiPos(oldBoardName, tempString) <> 0 ) and ( AnsiPos(oldHost, tempString ) <> 0 ) then begin
10108                    tempString := StringReplace(tempString, oldHost, newHost,[]);
10109                    TabList.Text := tempString;
10110                end;
10111            end;
10112    end;
10113        //ここまで、ThreadのURLの変更
10114    
10115  end;  end;
10116    
10117  // 最小化される  // 最小化される

Legend:
Removed from v.1.399  
changed lines
  Added in v.1.400

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