Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

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

revision 1.25 by h677, Wed Mar 24 15:20:19 2004 UTC revision 1.26 by h677, Tue Mar 30 14:14:53 2004 UTC
# Line 21  type Line 21  type
21          public          public
22                  constructor Create( inURL : string; inTitle : string = ''; inItem : TBoard = nil );                  constructor Create( inURL : string; inTitle : string = ''; inItem : TBoard = nil );
23                  constructor CreateWithItem( inItem : TBoard );                  constructor CreateWithItem( inItem : TBoard );
24            destructor Destory;
25                  property Item                           : TBoard        read GetItem write FItem;                  property Item                           : TBoard        read GetItem write FItem;
26                  property URL                            : string        read FURL write FURL;   // Item が取得できなくても URL は常に保持される                  property URL                            : string        read FURL write FURL;   // Item が取得できなくても URL は常に保持される
27                  property Title                  : string        read FTitle write FTitle;                  property Title                  : string        read FTitle write FTitle;
# Line 35  type Line 36  type
36          public          public
37                  constructor Create( inURL : string; inTitle : string = ''; inItem : TThreadItem = nil );                  constructor Create( inURL : string; inTitle : string = ''; inItem : TThreadItem = nil );
38                  constructor CreateWithItem( inItem : TThreadItem );                  constructor CreateWithItem( inItem : TThreadItem );
39            destructor Destory;
40                  property Item                           : TThreadItem   read GetItem write FItem;                  property Item                           : TThreadItem   read GetItem write FItem;
41                  property URL                            : string                        read FURL write FURL;   // Item が取得できなくても URL は常に保持される                  property URL                            : string                        read FURL write FURL;   // Item が取得できなくても URL は常に保持される
42                  property Title                  : string                        read FTitle write FTitle;                  property Title                  : string                        read FTitle write FTitle;
# Line 104  begin Line 106  begin
106          Create( inItem.URL, inItem.Title, inItem );          Create( inItem.URL, inItem.Title, inItem );
107    
108  end;  end;
109    destructor TFavoriteBoardItem.Destory;
110    begin
111            if FItem <> nil then
112            FItem.Free;
113        inherited;
114    end;
115  function        TFavoriteBoardItem.GetItem : TBoard;  function        TFavoriteBoardItem.GetItem : TBoard;
116  //var  //var
117  //      category : TCategory;  //      category : TCategory;
# Line 148  begin Line 155  begin
155          Create( inItem.URL, inItem.Title, inItem );          Create( inItem.URL, inItem.Title, inItem );
156    
157  end;  end;
158    destructor TFavoriteThreadItem.Destory;
159    begin
160            if FItem <> nil then
161            FItem.Free;
162        inherited;
163    end;
164    
165  function        TFavoriteThreadItem.GetItem : TThreadItem;  function        TFavoriteThreadItem.GetItem : TThreadItem;
166  var  var

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

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