レスの表示範囲を未読のみと新着のみにしている場合、

1 が表示されない事があるバグを修正。

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 219e71c..44ebfba 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1074,17 +1074,20 @@ begin
                                        '<style type="text/css">body {' + UserOptionalStyle + '}</style>' ) );
 
                                for i := 0 to threadItem.Count - 1 do begin
-                                       // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
-                                       case ResRange of
-                                       Ord( grrKoko ):
-                                               if ThreadItem.Kokomade > (i + 1) then
-                                                       Continue;
-                                       Ord( grrNew ):
-                                               if NewReceiveNo > (i + 1) then
-                                                       Continue;
-                                       10..65535:
-                                               if ( i <> 0 ) and ( (threadItem.Count-i) > ResRange ) then
-                                                       Continue;
+                                       // 1 \82Í\95K\82¸\95\\8e¦
+                                       if i <> 0 then begin
+                                               // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
+                                               case ResRange of
+                                               Ord( grrKoko ):
+                                                       if ThreadItem.Kokomade > (i + 1) then
+                                                               Continue;
+                                               Ord( grrNew ):
+                                                       if NewReceiveNo > (i + 1) then
+                                                               Continue;
+                                               10..65535:
+                                                       if (threadItem.Count - i) > ResRange then
+                                                               Continue;
+                                               end;
                                        end;
 
                                        // \90V\92\85\83}\81[\83N
@@ -1219,17 +1222,20 @@ begin
                                SaveList.Add('<a name="top"></a>');
 
                                for i := 0 to ReadList.Count - 1 do begin
-                                       // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
-                                       case ResRange of
-                                       Ord( grrKoko ):
-                                               if ThreadItem.Kokomade > (i + 1) then
-                                                       Continue;
-                                       Ord( grrNew ):
-                                               if NewReceiveNo > (i + 1) then
-                                                       Continue;
-                                       10..65535:
-                                               if ( i <> 0 ) and ( (threadItem.Count-i) > ResRange ) then
-                                                       Continue;
+                                       // 1 \82Í\95K\82¸\95\\8e¦
+                                       if i <> 0 then begin
+                                               // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
+                                               case ResRange of
+                                               Ord( grrKoko ):
+                                                       if ThreadItem.Kokomade > (i + 1) then
+                                                               Continue;
+                                               Ord( grrNew ):
+                                                       if NewReceiveNo > (i + 1) then
+                                                               Continue;
+                                               10..65535:
+                                                       if (threadItem.Count - i) > ResRange then
+                                                               Continue;
+                                               end;
                                        end;
 
                                        // \90V\92\85\83}\81[\83N
@@ -1307,17 +1313,20 @@ begin
                                SaveList.Clear;
                                //Application.ProcessMessages;
                                for i := 0 to ReadList.Count - 1 do begin
-                                       // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
-                                       case ResRange of
-                                       Ord( grrKoko ):
-                                               if ThreadItem.Kokomade > (i + 1) then
-                                                       Continue;
-                                       Ord( grrNew ):
-                                               if NewReceiveNo > (i + 1) then
-                                                       Continue;
-                                       10..65535:
-                                               if ( i <> 0 ) and ( (threadItem.Count-i) > ResRange ) then
-                                                       Continue;
+                                       // 1 \82Í\95K\82¸\95\\8e¦
+                                       if i <> 0 then begin
+                                               // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
+                                               case ResRange of
+                                               Ord( grrKoko ):
+                                                       if ThreadItem.Kokomade > (i + 1) then
+                                                               Continue;
+                                               Ord( grrNew ):
+                                                       if NewReceiveNo > (i + 1) then
+                                                               Continue;
+                                               10..65535:
+                                                       if (threadItem.Count - i) > ResRange then
+                                                               Continue;
+                                               end;
                                        end;
 
                                        if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
@@ -1382,17 +1391,20 @@ begin
                                SaveList.Clear;
                                //Application.ProcessMessages;
                                for i := 0 to ReadList.Count - 1 do begin
-                                       // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
-                                       case ResRange of
-                                       Ord( grrKoko ):
-                                               if ThreadItem.Kokomade > (i + 1) then
-                                                       Continue;
-                                       Ord( grrNew ):
-                                               if NewReceiveNo > (i + 1) then
-                                                       Continue;
-                                       10..65535:
-                                               if ( i <> 0 ) and ( (threadItem.Count-i) > ResRange ) then
-                                                       Continue;
+                                       // 1 \82Í\95K\82¸\95\\8e¦
+                                       if i <> 0 then begin
+                                               // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
+                                               case ResRange of
+                                               Ord( grrKoko ):
+                                                       if ThreadItem.Kokomade > (i + 1) then
+                                                               Continue;
+                                               Ord( grrNew ):
+                                                       if NewReceiveNo > (i + 1) then
+                                                               Continue;
+                                               10..65535:
+                                                       if (threadItem.Count - i) > ResRange then
+                                                               Continue;
+                                               end;
                                        end;
 
                                        if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin