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.22 by h677, Mon Jun 26 14:57:15 2006 UTC revision 1.23 by h677, Sat Jul 22 15:29:42 2006 UTC
# Line 50  type Line 50  type
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;
# Line 136  begin Line 128  begin
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;
# Line 174  begin Line 179  begin
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;
# Line 197  begin Line 202  begin
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;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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