・既に落ちているスレのログを削除し、板更新すると範囲外エラーが発生するので修正。

diff --git a/Giko.pas b/Giko.pas
index 895a01b..d04331f 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2192,7 +2192,7 @@ var
        RepStr: string;
                ActivListObj : TObject;
 begin
-               ActivListObj := ActiveList;
+       ActivListObj := ActiveList;
        if ActivListObj is TBBS then begin
                BBS := TBBS(ActivListObj);
 
@@ -2282,10 +2282,11 @@ begin
 
                ThreadItem := nil;
                case GikoForm.ViewType of
-                       gvtAll: ThreadItem := TThreadItem(Board.Items[Item.Index]);
-                       gvtLog: ThreadItem := Board.GetLogThread(Item.Index);
-                       gvtNew: ThreadItem := Board.GetNewThread(Item.Index);
-                       gvtUser: ThreadItem := Board.GetUserThread(Item.Index);
+                       gvtAll: if Item.Index >= Board.Count then Exit else
+                                                               ThreadItem := TThreadItem(Board.Items[Item.Index]);
+                       gvtLog:         ThreadItem := Board.GetLogThread(Item.Index);
+                       gvtNew:         ThreadItem := Board.GetNewThread(Item.Index);
+                       gvtUser:        ThreadItem := Board.GetUserThread(Item.Index);
                end;
 
                if ThreadItem = nil then Exit;
@@ -3327,9 +3328,9 @@ begin
        if FActiveList <> Obj then begin
                FActiveList := Obj;
 
-               ListView.Selected := nil;
                ListView.Items.Count := 0;
                ListView.Items.Clear;
+               ListView.Selected := nil;
 //     ListView.Columns.Clear;
 
                Caption := CAPTION_NAME;