ClearHistoryメソッドを復活させるために、明示的にDestoryを作ってみた

diff --git a/Favorite.pas b/Favorite.pas
index f59a3fa..b0baa34 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -21,6 +21,7 @@ type
        public
                constructor Create( inURL : string; inTitle : string = ''; inItem : TBoard = nil );
                constructor CreateWithItem( inItem : TBoard );
+        destructor Destory;
                property Item                           : TBoard        read GetItem write FItem;
                property URL                            : string        read FURL write FURL;   // Item \82ª\8eæ\93¾\82Å\82«\82È\82­\82Ä\82à URL \82Í\8fí\82É\95Û\8e\9d\82³\82ê\82é
                property Title                  : string        read FTitle write FTitle;
@@ -35,6 +36,7 @@ type
        public
                constructor Create( inURL : string; inTitle : string = ''; inItem : TThreadItem = nil );
                constructor CreateWithItem( inItem : TThreadItem );
+        destructor Destory;
                property Item                           : TThreadItem   read GetItem write FItem;
                property URL                            : string                        read FURL write FURL;   // Item \82ª\8eæ\93¾\82Å\82«\82È\82­\82Ä\82à URL \82Í\8fí\82É\95Û\8e\9d\82³\82ê\82é
                property Title                  : string                        read FTitle write FTitle;
@@ -104,7 +106,12 @@ begin
        Create( inItem.URL, inItem.Title, inItem );
 
 end;
-
+destructor TFavoriteBoardItem.Destory;
+begin
+       if FItem <> nil then
+       FItem.Free;
+    inherited;
+end;
 function       TFavoriteBoardItem.GetItem : TBoard;
 //var
 //     category : TCategory;
@@ -148,6 +155,12 @@ begin
        Create( inItem.URL, inItem.Title, inItem );
 
 end;
+destructor TFavoriteThreadItem.Destory;
+begin
+       if FItem <> nil then
+       FItem.Free;
+    inherited;
+end;
 
 function       TFavoriteThreadItem.GetItem : TThreadItem;
 var