終了時に AccessViolation を起こしてしまうバグを修正。(r1.376 にてエンバグ)

diff --git a/Giko.pas b/Giko.pas
index 3c3147a..72536ac 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1843,7 +1843,6 @@ var
 //     CoolSet: TCoolSet;
        wp                      : TWindowPlacement;
        tmpBool : Boolean;
-       Node            : TTreeNode;
 begin
 //     Application.OnDeactivate := nil;
 //     Self.OnDeactivate := nil;
@@ -1943,11 +1942,7 @@ begin
        LockWindowUpdate(0);
        try
                TreeView.Items.BeginUpdate;
-               Node := TreeView.Items.GetFirstNode;
-               while Node <> nil do begin
-                       Node.Free;
-                       Node := Node.GetNext;
-               end;
+               Node := TreeView.Items.GetFirstNode.Free;
                TreeView.Items.Clear;
                TreeView.Items.EndUpdate;
        except