Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BoardGroup.pas

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

revision 1.74 by h677, Sun Aug 5 12:43:24 2007 UTC revision 1.75 by h677, Sun Jul 6 04:14:54 2008 UTC
# Line 334  type Line 334  type
334          property        BoardPlugIn     : TBoardPlugIn  read FBoardPlugIn write FBoardPlugIn;          property        BoardPlugIn     : TBoardPlugIn  read FBoardPlugIn write FBoardPlugIn;
335      end;      end;
336    
337        // 特殊用途用TBoard
338        TSpecialBoard = class(TBoard)
339        public
340            function Add(item: TThreadItem): integer; overload;
341            procedure Clear; overload;
342        end;
343    
344          function        BBSsFindBoardFromBBSID( inBBSID : string ) : TBoard;          function        BBSsFindBoardFromBBSID( inBBSID : string ) : TBoard;
345          function        BBSsFindBoardFromURL( inURL : string ) : TBoard;          function        BBSsFindBoardFromURL( inURL : string ) : TBoard;
# Line 341  type Line 347  type
347          function        BBSsFindThreadFromURL(const inURL : string ) : TThreadItem;          function        BBSsFindThreadFromURL(const inURL : string ) : TThreadItem;
348          function        ConvertDateTimeString( inDateTimeString : string) : TDateTime;          function        ConvertDateTimeString( inDateTimeString : string) : TDateTime;
349    
350        procedure    DestorySpecialBBS( inBBS : TBBS );
351    
352  var  var
353          BBSs            : array of TBBS;          BBSs            : array of TBBS;
354      BoardGroups : array of TBoardGroup;      BoardGroups : array of TBoardGroup;
355        SpecialBBS  : TBBS;
356        
357  implementation  implementation
358    
359  uses  uses
# Line 529  begin Line 538  begin
538          end;          end;
539    
540  end;  end;
541    {!
542    \brief 特殊用途BBS削除
543    \param bbs 削除する特殊用途BBS
544    }
545    procedure DestorySpecialBBS( inBBS : TBBS );
546    var
547        sCategory : TCategory;
548        sBoard    : TSpecialBoard;
549    begin
550        if inBBS <> nil then begin
551            sCategory := inBBS.Items[0];
552            if sCategory <> nil then begin
553                sBoard := TSpecialBoard(sCategory.Items[0]);
554                if sBoard <> nil then begin
555                    sBoard.Modified := False;
556                    sBoard.Clear;
557                    FreeAndNil(sBoard);
558                end;
559            end;
560            FreeAndNil(inBBS);
561        end;
562    end;
563    
564  (*************************************************************************  (*************************************************************************
565   *機能名:TBBSコンストラクタ   *機能名:TBBSコンストラクタ
# Line 1830  begin Line 1861  begin
1861    
1862  end;  end;
1863    
1864    function TSpecialBoard.Add(item: TThreadItem): integer;
1865    begin
1866        Result := inherited AddObject(Item.URL, Item);
1867    end;
1868    
1869    procedure TSpecialBoard.Clear;
1870    var
1871            i: integer;
1872    begin
1873        for i := Count - 1 downto 0 do
1874                    DeleteList(i);
1875        Capacity := 0;
1876    end;
1877    
1878  end.  end.
1879    

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

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