source: trunk/UServerList.pas

unit UServerList;

{$mode delphi}

interface

uses
  Classes, SysUtils, contnrs;

type
  TServerInfo = class
    Name: string;
    Address: string;
    Port: Word;
    PlayersCountCurrent: Integer;
    PlayersCountMax: Integer;
    Password: string;
    MapName: string;
    Latency: TTime;
  end;

  TServerInfos = class(TObjectList)
  end;

  { TServerList }

  TServerList = class
    Name: string;
    Address: string;
    Items: TServerInfos;
    constructor Create;
    destructor Destroy; override;
  end;

implementation

{ TServerList }

constructor TServerList.Create;
begin
  Items := TServerInfos.Create;
end;

destructor TServerList.Destroy;
begin
  Items.Free;
  inherited Destroy;
end;

end.