| 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; |
| 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; |
| 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; |
| 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 |