Reinier Olislagers преди 11 години
родител
ревизия
c07875c24c
променени са 1 файла, в които са добавени 2 реда и са изтрити 3 реда
  1. 2 3
      querywindow.pas

+ 2 - 3
querywindow.pas

@@ -1497,9 +1497,8 @@ begin
       (ResultControls[i] as TSQLQuery).Close;
       (ResultControls[i] as TSQLQuery).DataSource:= nil;
     end;
-
-      ResultControls[i].Free;
-      ResultControls[i]:= nil;
+    ResultControls[i].Free;
+    ResultControls[i]:= nil;
   end;
 
   SetLength(ResultControls, 0);