Server UserListe abfragen

[Sir Rufo]

Da du record und class kennst, liegt die Antwort doch auf der Hand.

Erstelle dir einen record oder eine class um die benötigten Informationen zu speichern, so wie du sie hast oder benötigst. Die einzelnen Elemente kannst du dann in einer Liste verwalten.

Kleines minimalistisches Beispiel:

Delphi-Quellcode:

type
  TUser = class
  public
    property Name : string;  
  end;

  TActiveUser = class
  public
    property User : TUser;
    property Sessions : TList<TSession>;
  end;

  TActiveUserList = class( TList<TActiveUser> )
  public
    // Angemeldete Benutzer mit Anzahl der Sessions
    procedure GetUsers( AUsers : TStrings );
  end;

procedure TActiveUserList.GetUsers( AUsers : TStrings );
var
  LUser : TActiveUser;
begin
  AUsers.BeginUpdate;
  try
    AUsers.Clear;
    for LUser in Self do
      AUsers.Add( Format( '%s (%d)', [ LUser.User.Name, LUser.Sessions.Count ] ) );
  finally
    AUsers.EndUpdate;
  end;
end;