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.40 by yoffy, Thu Aug 26 17:08:13 2004 UTC revision 1.41 by h677, Fri Aug 27 20:47:08 2004 UTC
# Line 110  end; Line 110  end;
110  destructor TFavoriteBoardItem.Destory;  destructor TFavoriteBoardItem.Destory;
111  begin  begin
112          if FItem <> nil then          if FItem <> nil then
113          FItem.Free;                  FItem.Free;
114      inherited;          inherited;
115  end;  end;
116  function        TFavoriteBoardItem.GetItem : TBoard;  function        TFavoriteBoardItem.GetItem : TBoard;
117  var  var
# 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;
134                            end else if AnsiPos('jbbs.shitaraba.com', host) <> 0 then begin
135                                    // したらばJBBSのhttp://jbbs.shitaraba.com/ → http://jbbs.livedoor.com/ 置換
136                                    URL := CustomStringReplace(URL, 'http://jbbs.shitaraba.com/', 'http://jbbs.livedoor.com/', false);
137                                    FItem := BBSsFindBoardFromURL( URL );
138                                    if FItem <> nil then
139                                            URL := FItem.URL;
140                          end;                          end;
141                          {                          {
142                          // ※作っても、追加するカテゴリが無いので激しく保留                          // ※作っても、追加するカテゴリが無いので激しく保留
# Line 140  begin Line 146  begin
146                  end;                  end;
147          end;          end;
148    
149          Result := FItem;          Result := FItem;
150    
151  end;  end;
152    
# Line 152  constructor TFavoriteThreadItem.Create( Line 158  constructor TFavoriteThreadItem.Create(
158  begin  begin
159    
160          inherited Create;          inherited Create;
   
161          URL             := inURL;          URL             := inURL;
162    
163          Title   := inTitle;          Title   := inTitle;
164          Item    := inItem;          Item    := inItem;
165    

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

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