| 50 |
|
|
| 51 |
TRoundItem = class(TObject) |
TRoundItem = class(TObject) |
| 52 |
private |
private |
|
// |
|
| 53 |
FItem : TObject; |
FItem : TObject; |
|
// FBBSType: TGikoBBSType; |
|
| 54 |
FRoundName: string; |
FRoundName: string; |
| 55 |
FRoundType: TGikoRoundType; |
FRoundType: TGikoRoundType; |
|
//Item : TObject; |
|
|
//FURL : string; |
|
|
//FBoardTitle: string; |
|
|
//FThreadTitle: string; |
|
|
//FFileName: string; |
|
| 56 |
FTmpURL : string; |
FTmpURL : string; |
| 57 |
FBoolData: Boolean; //いろいろ使うょぅ |
FBoolData: Boolean; //いろいろ使うょぅ |
| 58 |
function GetBoardTitle : string; |
function GetBoardTitle : string; |
| 59 |
function GetThreadTitle : string; |
function GetThreadTitle : string; |
| 60 |
function GetURL : string; |
function GetURL : string; |
| 61 |
function GetFileName : string; |
function GetFileName : string; |
| 62 |
|
//! 巡回名取得 |
| 63 |
|
function GetRoundName : string; |
| 64 |
public |
public |
|
|
|
| 65 |
constructor Create; |
constructor Create; |
| 66 |
property Item : TObject read FItem; |
property Item : TObject read FItem; |
| 67 |
//property BBSType: TGikoBBSType read FBBSType write FBBSType; |
property RoundName: string read GetRoundName; |
|
property RoundName: string read FRoundName write FRoundName; |
|
| 68 |
property RoundType: TGikoRoundType read FRoundType write FRoundType; |
property RoundType: TGikoRoundType read FRoundType write FRoundType; |
|
//property Item : TObject read FItem write FItem; |
|
| 69 |
property URL : string read GetURL; |
property URL : string read GetURL; |
| 70 |
property TmpURL : string read FTmpURL write FTmpURL; |
property TmpURL : string read FTmpURL write FTmpURL; |
| 71 |
property BoardTitle: string read GetBoardTitle; |
property BoardTitle: string read GetBoardTitle; |
| 128 |
end; |
end; |
| 129 |
end; |
end; |
| 130 |
end; |
end; |
| 131 |
|
//! 巡回名取得 |
| 132 |
|
function TRoundItem.GetRoundName : string; |
| 133 |
|
begin |
| 134 |
|
Result := ''; |
| 135 |
|
if( Self.FItem <> nil) then begin |
| 136 |
|
if( Self.FItem is TBoard) then begin |
| 137 |
|
Result := TBoard(Self.FItem).RoundName; |
| 138 |
|
end else if( Self.FItem is TThreadItem) then begin |
| 139 |
|
Result := TThreadItem(Self.FItem).RoundName; |
| 140 |
|
end; |
| 141 |
|
end; |
| 142 |
|
end; |
| 143 |
|
|
| 144 |
constructor TRoundList.Create; |
constructor TRoundList.Create; |
| 145 |
begin |
begin |
| 146 |
inherited; |
inherited; |
| 179 |
//Item.BoardTitle := Board.Title; |
//Item.BoardTitle := Board.Title; |
| 180 |
//Item.ThreadTitle := ''; |
//Item.ThreadTitle := ''; |
| 181 |
//Item.FileName := ''; |
//Item.FileName := ''; |
| 182 |
Item.RoundName := Board.RoundName; |
//Item.RoundName := Board.RoundName; |
| 183 |
Result := FBoardList.Add(Item); |
Result := FBoardList.Add(Item); |
| 184 |
end; |
end; |
| 185 |
end; |
end; |
| 202 |
//Item.BoardTitle := ThreadItem.ParentBoard.Title; |
//Item.BoardTitle := ThreadItem.ParentBoard.Title; |
| 203 |
//Item.ThreadTitle := ThreadItem.Title; |
//Item.ThreadTitle := ThreadItem.Title; |
| 204 |
//Item.FileName := ThreadItem.FileName; |
//Item.FileName := ThreadItem.FileName; |
| 205 |
Item.RoundName := ThreadItem.RoundName; |
//Item.RoundName := ThreadItem.RoundName; |
| 206 |
Result := FItemList.Add(Item); |
Result := FItemList.Add(Item); |
| 207 |
end; |
end; |
| 208 |
end; |
end; |