Da du mORMot verwendest, schaue in die
Unit SynTable. Dort findest du die Klasse TSynQueue.
Code:
/// thread-safe FIFO (First-In-First-Out) in-order queue of records
// - uses internally a dynamic array storage, with a sliding algorithm
Ein Beispiel für die Anwendung findest du in der
Unit SynSelfTests.
Oder in der
Unit SynCommons die Klasse TSynDictionary.
Bis bald...
Thomas