In der
Unit SyncObjs gibt es ein paar schöne Funktionen, um thread-sicher Variablen hochzuzählen.
Es gibt auch eine um den Wert zu dekrementieren - aber immer nur um den Wert 1. Etwas wie
Dec(MeinInt, 100) scheint es nicht zu geben.
Daher meine Idee TInterLocked.Add zu verwenden. In etwa so
Delphi-Quellcode:
var
i, j: Integer;
begin
i := 100;
j := 2;
TInterLocked.Add(i, j); // => 102
TInterLocked.Add(i, (j)*-1); // => 99
Ist das so noch halbwegs korrekt und anwendbar oder ist das nicht in Ordnung?
Etwas anderes kann ich leider nicht machen. Es gibt zwar wie gesagt TInterLocked.Decrement, aber dort kann ich keinen zweiten Parameter angeben.