Ja genau das ist der Fehler:
Delphi-Quellcode:
procedure Tdata.DataModuleDestroy(Sender: TObject);
begin
ncal.Free;
con.Close;
con.Connected := False;
con.Free;
end;
destructor Tdata.Destroy;
begin
{ if (not CheckForOtherInstance) then
begin
CLEARWORKINGINFO.Prepared := True;
CLEARWORKINGINFO.ExecSQL;
end;}
fGoogleCalendars.Free;
fCalendarsToSync.Free;
fGCalHelper.Free;
fNxHelper.Free;
fNxCalendars.Free;
fRecInfAccess.Free;
inherited;
end;
Aber wo führe ich den CheckForOtherInstance aus. Wenn ich das im Destroy ausführe bleibt das Programm stehen. Und warum ging es unter Delphi 10.1 ohne Probleme. Aber das müssen wir nicht weiter verfolgen, ich habe Delphi 10.1 deinstalliert.