Implemented TLazy + Tests
This commit is contained in:
@@ -198,7 +198,7 @@ end;
|
||||
procedure TMycNotifierThreadingTests.Test_ConcurrentAdvise_Then_UnadviseAll_Consistency;
|
||||
const
|
||||
NumThreads = 24; // Number of threads
|
||||
ItemsPerThread = 2500; // Number of Advise operations per thread
|
||||
ItemsPerThread = 250; // Number of Advise operations per thread
|
||||
var
|
||||
threads: array of TAdviseWorkerThread;
|
||||
i: Integer;
|
||||
|
||||
Reference in New Issue
Block a user