Record threadsicher verwenden

[mytbo]

Zitat von MechMac666:

Aber ich suche noch etwas für meine Userliste.

Ich habe jetzt keine Möglichkeit zum Test, das sollte aber so funktionieren.

Delphi-Quellcode:

type
  TUser = record
    UserName: String;
    LoginCount: Integer;
  end;  

  TUserID = Int64;
  TUserIDDynArray = array of TUserID;
  TUserDynArray = array of TUser;  

FUserList := TSynDictionary.Create(TypeInfo(TUserIDDynArray), TypeInfo(TUserDynArray), False, {TimeoutSeconds=} 3600);  
  
var
  user: TUser;
begin
  user.UserName := '';
  user.LoginCount := 2;
  FUserList.AddOrUpdate(userID, user);

Mit der Angabe TimeoutSeconds kannst du durch Aufruf von DeleteDeprecated() ältere Einträge rausschmeißen (hier 1 Stunde).

Bis bald...
Thomas