Implementing first "strategy" for proof of concept

2025-07-11 11:06:18 +02:00
parent 644b6074d6
commit 487169afe0
20 changed files with 1761 additions and 274 deletions
@@ -154,7 +154,6 @@ end;
 procedure TMycNotifierThreadingTests.Setup;
 begin
    Randomize;
-    FNotifier.Create;
    FReceiverMasterList := TList<IMyTestInterface>.Create;
 end;

@@ -256,7 +255,7 @@ begin
    FNotifier.Lock;
    try
        FNotifier.Notify(
-            function(Item: IMyTestInterface): Boolean
+            function(const Item: IMyTestInterface): Boolean
            begin
                Inc(currentNotifyCount);
                Result := True; // Keep item in the Notifier
@@ -288,7 +287,7 @@ begin
    FNotifier.Lock;
    try
        FNotifier.Notify(
-            function(Item: IMyTestInterface): Boolean
+            function(const Item: IMyTestInterface): Boolean
            begin
                Inc(currentNotifyCount);
                Result := True;