From 6ea007f4b87f32d3fa161ced80d03a2dfdd064e6 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 22 Jul 2006 15:29:42 +0000
Subject: [PATCH] =?utf8?q?=E5=B7=A1=E5=9B=9E=E4=BA=88=E7=B4=84=E5=90=8D?=
 =?utf8?q?=E3=81=AE=E4=B8=8A=E6=9B=B8=E3=81=8D=E6=99=82=E3=81=AB=E5=8F=8D?=
 =?utf8?q?=E6=98=A0=E3=81=95=E3=82=8C=E3=81=AA=E3=81=84=E4=B8=8D=E5=85=B7?=
 =?utf8?q?=E5=90=88=E3=81=AE=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 RoundData.pas | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/RoundData.pas b/RoundData.pas
index 3380a8b..b9cc908 100644
--- 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;		//‚¢‚ë‚¢‚ëŽg‚¤‚å‚£
 		function GetBoardTitle : string;
 		function GetThreadTitle : string;
 		function GetURL	: string;
 		function GetFileName : string;
+        //! „‰ñ–¼Žæ“¾
+        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;
+//! „‰ñ–¼Žæ“¾
+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;
-- 
2.11.0