・不要なものや紛らわしい記述を排除。

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 6164205..aca137f 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -791,7 +791,6 @@ begin
        URL                                             := inURL;
        BBSID                                   := GikoSys.UrlToID( inURL );
 
-       // \83v\83\89\83O\83C\83\93\82É TBoardItem \82ª\8dì\90¬\82³\82ê\82½\82±\82Æ\82ð\93`\82¦\82é
        if inPlugIn = nil then begin
                // subject.txt \82Ì\95Û\91¶\83p\83X\82ð\90Ý\92è
                GikoSys.ParseURI( inURL, protocol, host, path, document, port, bookmark );
@@ -804,6 +803,7 @@ begin
                                IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder ) +
                                EXTERNAL_LOG_FOLDER + PATH_DELIM + host + PATH_DELIM + BBSID + PATH_DELIM + SUBJECT_FILENAME
        end else begin
+               // \83v\83\89\83O\83C\83\93\82É TBoardItem \82ª\8dì\90¬\82³\82ê\82½\82±\82Æ\82ð\93`\82¦\82é
                inPlugIn.CreateBoardItem( DWORD( Self ) );
        end;
 

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 566d278..2a6b60e 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -2893,7 +2893,6 @@ begin
                                                Board.BeginUpdate;
                                                Board.No := j + 1;
                                                Board.Title := BoardList[j];
-                                               Board.BBSID := GikoSys.UrlToID(inistr);
                                                Board.RoundDate := ZERO_DATE;
 
                                                idx := RoundList.Find(Board);

diff --git a/ItemDownload.pas b/ItemDownload.pas
index 2e42666..b367731 100644 (file)
--- a/ItemDownload.pas
+++ b/ItemDownload.pas
@@ -901,7 +901,7 @@ var
                inCount                 : DWORD         // \83\8c\83X\82Ì\90\94
        ) : Boolean; stdcall;           // \97ñ\8b\93\82ð\91±\82¯\82é\82È\82ç True
        var
-               threadItem      : TThreadItem;
+               _ThreadItem     : TThreadItem;  // '_' \82Í\83N\83\89\83X\82Ì\83v\83\8d\83p\83e\83B\82Æ\82©\82Ô\82Á\82Ä\82é\82Ì\82Å
                boardItem               : TBoard;
        begin
                Result          := True;
@@ -911,20 +911,17 @@ var
                index := boardItem.GetIndexFromURL( string( inURL ) );
                if index = -1 then begin
                        //\90V\82µ\82¢\83X\83\8c\83b\83h
-                       threadItem := TThreadItem.Create( boardItem.BoardPlugIn, string( inURL ) );
-
-                       threadItem.Title                                := string( inTitle );
-//                             threadItem.Count := inCount;
-                       threadItem.AllResCount  := inCount;
-                       threadItem.ParentBoard  := Board;
-                       threadItem.No                                           := boardItem.IntData;
-                       threadItem.RoundDate            := ZERO_DATE;
-                       threadItem.LastModified := ZERO_DATE;
-                       threadItem.AgeSage                      := gasNew;
-                       boardItem.ListData.Add( threadItem );
+                       _ThreadItem := TThreadItem.Create( boardItem.BoardPlugIn, string( inURL ) );
+
+                       _ThreadItem.Title                                       := string( inTitle );
+                       _ThreadItem.AllResCount         := inCount;
+                       _ThreadItem.ParentBoard         := Board;
+                       _ThreadItem.No                                          := boardItem.IntData;
+                       _ThreadItem.RoundDate           := ZERO_DATE;
+                       _ThreadItem.LastModified        := ZERO_DATE;
+                       _ThreadItem.AgeSage                             := gasNew;
+                       boardItem.ListData.Add( _ThreadItem );
                end else begin
-                       //boardItem.Items[index].Count := Count;
-                       //boardItem.Items[index].Count := Rec.FCount;
                        if boardItem.Items[index].No > boardItem.IntData then
                                boardItem.Items[index].AgeSage := gasAge
                        else if boardItem.Items[index].AllResCount < inCount then
@@ -934,8 +931,6 @@ var
 
                        boardItem.Items[index].No                                               := boardItem.IntData;
                        boardItem.Items[index].AllResCount      := inCount;
-//                             if not boardItem.Items[index].IsLogFile then
-//                                     boardItem.Items[index].Count := inCountt;
                        boardItem.ListData.Add( boardItem.Items[index] );
                        boardItem.DeleteList( index );
                end;
@@ -993,9 +988,7 @@ begin
                                        //\90V\82µ\82¢\83X\83\8c\83b\83h
                                        NewItem := TThreadItem.Create(
                nil, GikoSys.Get2chBoard2ThreadURL( Board, ChangeFileExt( Rec.FFileName, '' ) ) );
-                                       NewItem.FileName := Rec.FFileName;
                                        NewItem.Title := Rec.FTitle;
-       //                              NewItem.Count := Rec.FCount;
                                        NewItem.AllResCount := Rec.FCount;
                                        NewItem.ParentBoard := Board;
                                        NewItem.No := NumCount;
@@ -1004,8 +997,6 @@ begin
                                        NewItem.AgeSage := gasNew;
                                        Board.ListData.Add(NewItem);
                                end else begin
-                                       //Board.Items[index].Count := Count;
-                                       //Board.Items[index].Count := Rec.FCount;
                                        if Board.Items[index].No > NumCount then
                                                Board.Items[index].AgeSage := gasAge
                                        else if Board.Items[index].AllResCount < Rec.FCount then
@@ -1013,11 +1004,8 @@ begin
                                        else
                                                Board.Items[index].AgeSage := gasNone;
 
-
                                        Board.Items[index].No := NumCount;
                                        Board.Items[index].AllResCount := Rec.FCount;
-       //                              if not Board.Items[index].IsLogFile then
-       //                                      Board.Items[index].Count := Rec.FCount;
                                        Board.ListData.Add(Board.Items[index]);
                                        Board.DeleteList(index);
                                end;