Mit Stackframes bekomme ich nun in dem weiter unten gelegenen Codeabschnitt beim Zugriff auf den Hauptthread eine Schutzverletzung:
Delphi-Quellcode:
if c>0 then begin
EnterMainThread;
try
log(inttostr(c)+' Automat(en) von Mandant '+clientData.cname+' gelöscht, Laufzeit '+inttostr(et-st)+' ms ',1);
dispatcherForm.deletedMachinesLED.Status:=false; // <---- Schutzverletzung tritt hier auf
dispatcherform.lDeletedMachineLED.Caption:='Suche nach gelöschten Automaten (letzte Laufzeit: '+inttostr(et-st)+' ms )';
finally
LeaveMainThread;
end;
end;
Nachtrag:
Die Schutzverletzung tritt in
Unit System auf, in Methode TObject.InheritsFrom