Changeset 287 for trunk/UGameServer.pas

Timestamp:

Mar 24, 2019, 2:26:29 PM (5 years ago)

Author:

chronos

Message:

• Fixed: FormNew default undefined game system causing error.
• Modified: FormNew and FormUnitKind use Server property insteady Load/Save methods.

File:

• trunk/UGameServer.pas (modified) (3 diffs)

trunk/UGameServer.pas

@@ -64 +64 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Assign(Source: TServer);
     property Game: TGame read FGame write SetGame;
     property Mode: TServerMode read FServerMode write SetServerMode;
@@ -142 +143 @@
 begin
   if FGame = AValue then Exit;
+  if Assigned(FGame) then
+    FGame.OnChange := nil;
   FGame := AValue;
   for I := 0 to Clients.Count - 1 do
@@ -278 +281 @@
 end;
 
+procedure TServer.Assign(Source: TServer);
+begin
+  Mode := Source.Mode;
+  Game := Source.Game;
+  LocalNetworkAddress := Source.LocalNetworkAddress;
+  LocalNetworkPort := Source.LocalNetworkPort;
+  RemoteNetworkAddress := Source.RemoteNetworkAddress;
+  RemoteNetworkPort := Source.RemoteNetworkPort;
+  //Active := Source.Active;
+end;
+
 end.