🚀 go-pugleaf

Hi Martin,

> currentLiveQueryThreads:TThreadList;

in case someone else is looking for this, that's
what I did:

> Add new ThreadQuery instances to the list in the constructor.
...
 with CurrentLiveQueryThreads.LockList do
  begin
    try
     Add(Self);
    finally
      CurrentLiveQueryThreads.UnlockList;
    end;
  end;
...
> remove the threads from the list before exiting the thread.
...
  with CurrentLiveQueryThreads.LockList do
  begin
    try
      for i := Count - 1 dowto 0 do
        if Items[i] = Self then
          Remove(Items[i]);
  {  // -- or longer version --
      for i := 0 to Count - 1 do begin
        if Items[i] = Self then
        begin
          Remove(Items[i]);
          break;
        end;
      end;
   }
    finally
      CurrentLiveQueryThreads.UnlockList;
    end;
  end;
  inherited Destroy;
...

> If you want to terminate all the threads, lock the list & iterate it,
> call the terminate method for each thread & unlock the list.

  with CurrentLiveQueryThreads.LockList do
  begin
    try
      for i := 0 to Count - 1 do
        ThreadQuery(Items[i]).Terminate;
    finally
      CurrentLiveQueryThreads.UnlockList;
    end;
  end;

thanks,
Harri