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.15 by yoffy, Wed Nov 26 03:48:46 2003 UTC revision 1.16 by yoffy, Fri Nov 28 02:28:38 2003 UTC
# Line 105  begin Line 105  begin
105  end;  end;
106    
107  function        TFavoriteBoardItem.GetItem : TBoard;  function        TFavoriteBoardItem.GetItem : TBoard;
108    var
109            category : TCategory;
110  begin  begin
111    
112          if FItem = nil then begin          if FItem = nil then begin
113                  FItem := BBSsFindBoardFromURL( URL );                  FItem := BBSsFindBoardFromURL( URL );
114                  // 旧式のお気に入りとの互換性のため                  {
115                  if FItem = nil then                  if FItem = nil then begin
116                          // ※作っても、追加するカテゴリが無いので激しく保留                          // ※作っても、追加するカテゴリが無いので激しく保留
117                          FItem := TBoard.Create( nil, URL );                          FItem                           := GikoSys.GetUnknownBoard( nil, URL );
118                            FItem.Title     := Title;
119                    end;
120                    }
121          end;          end;
122    
123          Result := FItem;          Result := FItem;
# Line 154  begin Line 159  begin
159                  board                   := BBSsFindBoardFromURL( boardURL );                  board                   := BBSsFindBoardFromURL( boardURL );
160    
161                  if board = nil then                  if board = nil then
162                            Exit
163                          // ※作っても、追加するカテゴリが無いので激しく保留                          // ※作っても、追加するカテゴリが無いので激しく保留
164                          board := TBoard.Create( nil, boardURL )                          //board := GikoSys.GetUnknownBoard( nil, boardURL )
165                  else                  else
166                          FItem := board.FindThreadFromURL( URL );                          FItem := board.FindThreadFromURL( URL );
167    

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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