Changeset 278 for trunk/Forms/UFormGameSystem.pas

Timestamp:

Feb 14, 2019, 10:25:13 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Incorrect way to assign units between two game systems causing crash of the application on exit.

File:

• trunk/Forms/UFormGameSystem.pas (modified) (1 diff)

trunk/Forms/UFormGameSystem.pas

@@ -98 +98 @@
 procedure TFormGameSystem.FormDestroy(Sender: TObject);
 begin
-  FormUnitKinds.Free;
+  GameSystem := nil;
+  FreeAndNil(FormUnitKinds);
 end;