終了時にアクセスバイオレーションが出るようになった。

RoundListのメモリの解放のタイミングのよう。応急処置でRoundList自体の
解放をしないようにした。

diff --git a/Giko.pas b/Giko.pas
index 24a30f3..98847bd 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -824,7 +824,7 @@ type
       var Handled: Boolean);
        private
                { Private \90é\8c¾ }
-
+        //RoundList : TRoundList;
                FSortIndex: Integer;
                FSortOrder: Boolean;
 
@@ -1685,6 +1685,20 @@ begin
                AddressHistoryDM := nil;
        except
        end;
+       //\8f\84\89ñ\83\8a\83X\83g\95Û\91¶&\94j\8aü
+       try
+               RoundList.SaveRoundFile;
+       except
+       end;
+
+       try
+               RoundList.Clear;
+       except
+       end;
+       try
+               //RoundList.Free;
+       except
+       end;
 
        // TBBS \82Í\95Û\8e\9d\82µ\82Ä\82¢\82é TCategory, TBoard, TThreadItem \82·\82×\82Ä\82ð\8aJ\95ú\82·\82é
        // TBoard, TThreadItem \82Ì\83f\83X\83g\83\89\83N\83^\82Í\83v\83\89\83O\83C\83\93\82É\94j\8aü\82ð\93`\82¦\82é\82Ì\82Å
@@ -1717,20 +1731,6 @@ begin
        except
        end;
 
-       //\8f\84\89ñ\83\8a\83X\83g\95Û\91¶&\94j\8aü
-       try
-               RoundList.SaveRoundFile;
-       except
-       end;
-
-       try
-               RoundList.Clear;
-       except
-       end;
-       try
-               RoundList.Free;
-       except
-       end;
 
        try
                //Hint\94j\8aü

diff --git a/RoundData.pas b/RoundData.pas
index 883a42d..981aad6 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -102,7 +102,7 @@ begin
        Clear;
        FBoardList.Free;
        FItemList.Free;
-       inherited;
+       //inherited;
 end;
 
 function TRoundList.Add(Board: TBoard): Integer;