added Futures

2025-06-02 00:45:30 +02:00
parent ca101a3452
commit 63484cd495
15 changed files with 1625 additions and 4126 deletions
@@ -116,7 +116,6 @@ end;
 procedure TAdviseWorkerThread.Execute;
 var
    i: Integer;
-    tag: TMycNotifyList<IMyTestInterface>.TTag; // Tag is not used further in this test design
 begin
    inherited; // Important for TThread
    try
@@ -128,7 +127,7 @@ begin
            // Acquire lock before calling Advise
            FOwnerFixture.FNotifier.Lock;
            try
-                tag := FOwnerFixture.FNotifier.Advise(FReceiversToAdd[i]);
+                var tag := FOwnerFixture.FNotifier.Advise(FReceiversToAdd[i]);
                // The 'tag' could be used here if necessary for other test scenarios
            finally
                // Definitely release lock in the finally block