使ってない変数とかを隠蔽

diff --git a/Favorite.pas b/Favorite.pas
index bfb5f69..cee4eda 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -104,8 +104,8 @@ begin
 end;
 
 function       TFavoriteBoardItem.GetItem : TBoard;
-var
-       category : TCategory;
+//var
+//     category : TCategory;
 begin
 
        if FItem = nil then begin

diff --git a/GikoSystem.pas b/GikoSystem.pas
index fb19036..fb9c79d 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1008,7 +1008,7 @@ var
        SkinHeader: string;
        SkinNewRes: string;
        SkinRes: string;
-       SizeByte: Integer;
+//     SizeByte: Integer;
 
        function LoadSkin( fileName: string ): string;
        begin
@@ -1130,7 +1130,7 @@ begin
        ShortDayNames[3] := '\89Î';               ShortDayNames[4] := '\90\85';
        ShortDayNames[5] := '\96Ø';               ShortDayNames[6] := '\8bà';
        ShortDayNames[7] := '\93y';
-       SizeByte := 0;
+//     SizeByte := 0;
        BBSID := ThreadItem.ParentBoard.BBSID;
        NewReceiveNo := ThreadItem.NewReceive;
        ReadList := TStringList.Create;
@@ -1249,12 +1249,12 @@ begin
                                                        end;
                                                end;
                                        end;
-                                       SizeByte := SizeByte + Length( SaveList.Text );
+//                                     SizeByte := SizeByte + Length( SaveList.Text );
                                        doc.Write(SaveList.Text);
                                        SaveList.Clear;
                                end;
                                SaveList.Add('<a name="bottom"></a>');
-                               SizeByte := SizeByte + Length( SaveList.Text );
+//                             SizeByte := SizeByte + Length( SaveList.Text );
                                // \83X\83L\83\93(\83t\83b\83^)
                                try
                                        SaveList.Add( LoadSkin( GetSkinFooterFileName ) );

diff --git a/ItemDownload.pas b/ItemDownload.pas
index 3ac6d91..bc6b0fa 100644 (file)
--- a/ItemDownload.pas
+++ b/ItemDownload.pas
@@ -1149,6 +1149,8 @@ begin
 
        //      Cnt := 0;
                Body := TStringList.Create;
+        NewRes := 0;
+        OldCnt := 0;
                try
        //              if FileExists(FileName) and (ResponseCode = 206) then begin
                        if FileExists(FileName) and (State = gdsDiffComplete) then begin

diff --git a/RoundData.pas b/RoundData.pas
index 608d573..7674737 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -150,7 +150,7 @@ end;
 procedure TRoundList.Delete(Board: TBoard);
 var
        idx: Integer;
-       Item: TRoundItem;
+//     Item: TRoundItem;
 begin
        idx := Find(Board);
        if idx <> -1 then begin
@@ -162,7 +162,7 @@ end;
 procedure TRoundList.Delete(ThreadItem: TThreadItem);
 var
        idx: Integer;
-       Item: TRoundItem;
+//     Item: TRoundItem;
 begin
        idx := Find(ThreadItem);
        if idx <> -1 then begin
@@ -365,7 +365,7 @@ end;
 procedure TRoundList.LoadRoundThreadFile;
 var
        i: Integer;
-    j: Integer;
+//    j: Integer;
        sl: TStringList;
        FileName: string;
     errorSl: TStringList;
@@ -501,7 +501,7 @@ function TRoundList.ParseRoundThreadLine(Line: string): TRoundItem;
 var
        s: string;
        i: Integer;
-    threadItem: TThreadItem;
+//    threadItem: TThreadItem;
 begin
     Result := TRoundItem.Create;
        Result.RoundType := grtItem;