| 43 |
// FBBSType: TGikoBBSType; |
// FBBSType: TGikoBBSType; |
| 44 |
FRoundName: string; |
FRoundName: string; |
| 45 |
FRoundType: TGikoRoundType; |
FRoundType: TGikoRoundType; |
| 46 |
FBBSID: string; |
FItem : TObject; |
| 47 |
|
FURL : string; |
| 48 |
FBoardTitle: string; |
FBoardTitle: string; |
| 49 |
FThreadTitle: string; |
FThreadTitle: string; |
| 50 |
FFileName: string; |
FFileName: string; |
| 53 |
// property BBSType: TGikoBBSType read FBBSType write FBBSType; |
// property BBSType: TGikoBBSType read FBBSType write FBBSType; |
| 54 |
property RoundName: string read FRoundName write FRoundName; |
property RoundName: string read FRoundName write FRoundName; |
| 55 |
property RoundType: TGikoRoundType read FRoundType write FRoundType; |
property RoundType: TGikoRoundType read FRoundType write FRoundType; |
| 56 |
property BBSID: string read FBBSID write FBBSID; |
property Item : TObject read FItem write FItem; |
| 57 |
|
property URL : string read FURL write FURL; |
| 58 |
property BoardTitle: string read FBoardTitle write FBoardTitle; |
property BoardTitle: string read FBoardTitle write FBoardTitle; |
| 59 |
property ThreadTitle: string read FThreadTitle write FThreadTitle; |
property ThreadTitle: string read FThreadTitle write FThreadTitle; |
| 60 |
property FileName: string read FFileName write FFileName; |
property FileName: string read FFileName write FFileName; |
| 100 |
Item := TRoundItem.Create; |
Item := TRoundItem.Create; |
| 101 |
// Item.BBSType := gbt2ch; //とりあえず |
// Item.BBSType := gbt2ch; //とりあえず |
| 102 |
Item.RoundType := grtBoard; |
Item.RoundType := grtBoard; |
| 103 |
Item.BBSID := Board.BBSID; |
Item.Item := Board; |
| 104 |
Item.BoardTitle := Board.Title; |
Item.BoardTitle := Board.Title; |
| 105 |
Item.ThreadTitle := ''; |
Item.ThreadTitle := ''; |
| 106 |
Item.FileName := ''; |
Item.FileName := ''; |
| 120 |
Item := TRoundItem.Create; |
Item := TRoundItem.Create; |
| 121 |
// Item.BBSType := gbt2ch; //とりあえず |
// Item.BBSType := gbt2ch; //とりあえず |
| 122 |
Item.RoundType := grtItem; |
Item.RoundType := grtItem; |
| 123 |
Item.BBSID := ThreadItem.ParentBoard.BBSID; |
Item.Item := ThreadItem; |
| 124 |
Item.BoardTitle := ThreadItem.ParentBoard.Title; |
Item.BoardTitle := ThreadItem.ParentBoard.Title; |
| 125 |
Item.ThreadTitle := ThreadItem.Title; |
Item.ThreadTitle := ThreadItem.Title; |
| 126 |
Item.FileName := ThreadItem.FileName; |
Item.FileName := ThreadItem.FileName; |
| 178 |
for i := 0 to FBoardList.Count - 1 do begin |
for i := 0 to FBoardList.Count - 1 do begin |
| 179 |
Item := TRoundItem(FBoardList[i]); |
Item := TRoundItem(FBoardList[i]); |
| 180 |
if Item.FRoundType <> grtBoard then Continue; |
if Item.FRoundType <> grtBoard then Continue; |
| 181 |
if Item.FBBSID = Board.BBSID then begin |
if Item.Item = Board then begin |
| 182 |
Result := i; |
Result := i; |
| 183 |
Exit; |
Exit; |
| 184 |
end; |
end; |
| 194 |
for i := 0 to FItemList.Count - 1 do begin |
for i := 0 to FItemList.Count - 1 do begin |
| 195 |
Item := TRoundItem(FItemList[i]); |
Item := TRoundItem(FItemList[i]); |
| 196 |
if Item.FRoundType <> grtItem then Continue; |
if Item.FRoundType <> grtItem then Continue; |
| 197 |
if (Item.FBBSID = ThreadItem.ParentBoard.BBSID) and (Item.FFileName = ThreadItem.FileName) then begin |
if Item.Item = ThreadItem then begin |
| 198 |
Result := i; |
Result := i; |
| 199 |
Exit; |
Exit; |
| 200 |
end; |
end; |
| 298 |
sl.Add(ROUND_INDEX_VERSION); |
sl.Add(ROUND_INDEX_VERSION); |
| 299 |
for i := 0 to FBoardList.Count - 1 do begin |
for i := 0 to FBoardList.Count - 1 do begin |
| 300 |
Item := TRoundItem(FBoardList[i]); |
Item := TRoundItem(FBoardList[i]); |
| 301 |
s := Item.BBSID + #1 |
s := Item.URL + #1 |
| 302 |
+ Item.BoardTitle + #1 |
+ Item.BoardTitle + #1 |
| 303 |
+ Item.RoundName; |
+ Item.RoundName; |
| 304 |
sl.Add(s); |
sl.Add(s); |
| 309 |
sl.Add(ROUND_INDEX_VERSION); |
sl.Add(ROUND_INDEX_VERSION); |
| 310 |
for i := 0 to FItemList.Count - 1 do begin |
for i := 0 to FItemList.Count - 1 do begin |
| 311 |
Item := TRoundItem(FItemList[i]); |
Item := TRoundItem(FItemList[i]); |
| 312 |
s := Item.BBSID + #1 |
s := Item.URL + #1 |
| 313 |
+ Item.BoardTitle + #1 |
+ Item.BoardTitle + #1 |
| 314 |
+ Item.FileName + #1 |
+ Item.FileName + #1 |
| 315 |
+ Item.ThreadTitle + #1 |
+ Item.ThreadTitle + #1 |
| 335 |
for i := 0 to 2 do begin |
for i := 0 to 2 do begin |
| 336 |
s := GikoSys.GetTokenIndex(Line, #1, i); |
s := GikoSys.GetTokenIndex(Line, #1, i); |
| 337 |
case i of |
case i of |
| 338 |
0: Result.BBSID := s; |
0: |
| 339 |
|
begin |
| 340 |
|
Result.URL := s; |
| 341 |
|
Result.Item := BBSsFindBoardFromURL( s ); |
| 342 |
|
end; |
| 343 |
1: Result.BoardTitle := s; |
1: Result.BoardTitle := s; |
| 344 |
2: Result.RoundName := s; |
2: Result.RoundName := s; |
| 345 |
end; |
end; |
| 349 |
for i := 0 to 4 do begin |
for i := 0 to 4 do begin |
| 350 |
s := GikoSys.GetTokenIndex(Line, #1, i); |
s := GikoSys.GetTokenIndex(Line, #1, i); |
| 351 |
case i of |
case i of |
| 352 |
0: Result.BBSID := s; |
0: |
| 353 |
|
begin |
| 354 |
|
Result.URL := s; |
| 355 |
|
Result.Item := BBSsFindThreadFromURL( s ); |
| 356 |
|
end; |
| 357 |
1: Result.BoardTitle := s; |
1: Result.BoardTitle := s; |
| 358 |
2: Result.FileName := s; |
2: Result.FileName := s; |
| 359 |
3: Result.ThreadTitle := s; |
3: Result.ThreadTitle := s; |