Changeset 278 for trunk/Forms/UFormGameSystems.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/UFormGameSystems.pas (modified) (2 diffs)

trunk/Forms/UFormGameSystems.pas

@@ -38 +38 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -159 +160 @@
 end;
 
+procedure TFormGameSystems.FormDestroy(Sender: TObject);
+begin
+  GameSystems := nil;
+end;
+
 procedure TFormGameSystems.FormShow(Sender: TObject);
 begin