Changeset 287 for trunk/UGameServer.pas


Ignore:
Timestamp:
Mar 24, 2019, 2:26:29 PM (6 years ago)
Author:
chronos
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UGameServer.pas

    r231 r287  
    6464    constructor Create;
    6565    destructor Destroy; override;
     66    procedure Assign(Source: TServer);
    6667    property Game: TGame read FGame write SetGame;
    6768    property Mode: TServerMode read FServerMode write SetServerMode;
     
    142143begin
    143144  if FGame = AValue then Exit;
     145  if Assigned(FGame) then
     146    FGame.OnChange := nil;
    144147  FGame := AValue;
    145148  for I := 0 to Clients.Count - 1 do
     
    278281end;
    279282
     283procedure TServer.Assign(Source: TServer);
     284begin
     285  Mode := Source.Mode;
     286  Game := Source.Game;
     287  LocalNetworkAddress := Source.LocalNetworkAddress;
     288  LocalNetworkPort := Source.LocalNetworkPort;
     289  RemoteNetworkAddress := Source.RemoteNetworkAddress;
     290  RemoteNetworkPort := Source.RemoteNetworkPort;
     291  //Active := Source.Active;
     292end;
     293
    280294end.
    281295
Note: See TracChangeset for help on using the changeset viewer.