Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/RoundData.pas

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

revision 1.2 by h677, Thu Sep 4 08:22:07 2003 UTC revision 1.3 by yoffy, Fri Nov 21 17:24:50 2003 UTC
# Line 43  type Line 43  type
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;
# Line 52  type Line 53  type
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;
# Line 98  begin Line 100  begin
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 := '';
# Line 118  begin Line 120  begin
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;
# Line 176  begin Line 178  begin
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;
# Line 192  begin Line 194  begin
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;
# Line 296  begin Line 298  begin
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);
# Line 307  begin Line 309  begin
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
# Line 333  begin Line 335  begin
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;
# Line 343  begin Line 349  begin
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;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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