Ich würde ein BusyFlag als Integer spendieren, und mit
Delphi-Quellcode:
function GetBusy : Boolean;
begin
LRes := TInterlocked.Exchange( LThreadFlag, LThreadFlag);
Result := LRes <> 0;
end;
abfragen, sicherheitshalber.
Was Peter schreibt stimmt schon, aber weil die Busy-Abfrage ja nicht permanent läuft würde ich mir da etwas mehr "Freiraum" drumrum schaffen,
damit nicht bei plötzlichen Änderungen des Typs aus Versehen etwas in die Hose geht.