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