Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

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

revision 1.42 by h677, Sun Aug 29 03:12:02 2004 UTC revision 1.43 by h677, Mon Sep 6 16:40:42 2004 UTC
# Line 131  begin Line 131  begin
131                                  FItem := BBSs[ 0 ].FindBBSID( BBSID );                                  FItem := BBSs[ 0 ].FindBBSID( BBSID );
132                                  if FItem <> nil then                                  if FItem <> nil then
133                                          URL := FItem.URL;                                          URL := FItem.URL;
                         end else if AnsiPos('jbbs.shitaraba.com', host) <> 0 then begin  
                                 // したらばJBBSのhttp://jbbs.shitaraba.com/ → http://jbbs.livedoor.com/ 置換  
                                 URL := CustomStringReplace(URL, 'http://jbbs.shitaraba.com/', 'http://jbbs.livedoor.com/', false);  
                                 FItem := BBSsFindBoardFromURL( URL );  
                                 if FItem <> nil then  
                                         URL := FItem.URL;  
134                          end;                          end;
135                          {                          {
136                          // ※作っても、追加するカテゴリが無いので激しく保留                          // ※作っても、追加するカテゴリが無いので激しく保留

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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