| 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; |
| 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 |
| 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コンストラクタ |
| 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 |
|
|