巡回予約名の上書き時に反映されない不具合の修正

diff --git a/RoundData.pas b/RoundData.pas
index 3380a8b..b9cc908 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -50,30 +50,22 @@ type
 
        TRoundItem = class(TObject)
        private
-//
                FItem           : TObject;
-//             FBBSType: TGikoBBSType;
                FRoundName: string;
                FRoundType: TGikoRoundType;
-       //Item                  : TObject;
-               //FURL          : string;
-               //FBoardTitle: string;
-               //FThreadTitle: string;
-               //FFileName: string;
                FTmpURL : string;
                FBoolData: Boolean;             //\82¢\82ë\82¢\82ë\8eg\82¤\82å\82£
                function GetBoardTitle : string;
                function GetThreadTitle : string;
                function GetURL : string;
                function GetFileName : string;
+        //! \8f\84\89ñ\96¼\8eæ\93¾
+        function GetRoundName : string;
        public
-
                constructor Create;
                property Item : TObject read FItem;
-       //property BBSType: TGikoBBSType read FBBSType write FBBSType;
-               property RoundName: string read FRoundName write FRoundName;
+               property RoundName: string read GetRoundName;
                property RoundType: TGikoRoundType read FRoundType write FRoundType;
-       //property Item : TObject read FItem write FItem;
                property URL : string read GetURL;
                property TmpURL : string read FTmpURL write FTmpURL;
                property BoardTitle: string read GetBoardTitle;
@@ -136,6 +128,19 @@ begin
                end;
        end;
 end;
+//! \8f\84\89ñ\96¼\8eæ\93¾
+function TRoundItem.GetRoundName : string;
+begin
+       Result := '';
+       if( Self.FItem <> nil) then begin
+               if( Self.FItem is TBoard) then begin
+                       Result := TBoard(Self.FItem).RoundName;
+               end else if( Self.FItem is TThreadItem) then begin
+                       Result := TThreadItem(Self.FItem).RoundName;
+               end;
+       end;
+end;
+
 constructor TRoundList.Create;
 begin
        inherited;
@@ -174,7 +179,7 @@ begin
                //Item.BoardTitle := Board.Title;
                //Item.ThreadTitle := '';
                //Item.FileName := '';
-               Item.RoundName := Board.RoundName;
+               //Item.RoundName := Board.RoundName;
                Result := FBoardList.Add(Item);
        end;
 end;
@@ -197,7 +202,7 @@ begin
                //Item.BoardTitle := ThreadItem.ParentBoard.Title;
                //Item.ThreadTitle := ThreadItem.Title;
                //Item.FileName := ThreadItem.FileName;
-               Item.RoundName := ThreadItem.RoundName;
+               //Item.RoundName := ThreadItem.RoundName;
                Result := FItemList.Add(Item);
        end;
 end;