Hallöle...

Ich habe einen Exception Block, falls die Datei nicht geöffnet werden kann. (Bild1 - Fehler den ich erwarte)

Nach der Fortsetzung in der IDE bekomme ich einen Fehler den ich nicht kenne...
Könnte mir jemand die Fehlermeldung erklären? (Bild2)

Ich komme in den Exception Block noch nicht mal rein. (Bild3) Mit Ok komme ich in die CPU Ansicht!

Danke...

Was ist den List?

Schon 12.2 Patch1 eingespielt?


Publicly Reported Issues Addressed by this Patch
This patch addresses the following public reports on Quality Portal (https://qp.embarcadero.com/):

RSS-698 Try catch finally bug under win64x

Hallo...

Zitat:

Was ist den List?

TStringList

Zitat:

Schon 12.2 Patch1 eingespielt?

ich bin noch auf 12.1

PS: das ist nicht das erste try/exept im Programm

Ist der List überhaupt erstellt?

Ist da eine DLL mit im Spiel?

Dein Except-Block, bzw. das ON ist auf Exception-Typ und Nachfahren eingeschränkt,
und wenn es was anderes ist, wobei auch der Exception-Typ einer anderen DLL was Anderes ist, wenn (normal) die TypeInfos/RTTI nicht durch das RTL-Runtimepackage gleichgeschaltet sind.

Danke...

Zitat:

Ist der List überhaupt erstellt?

Ja.

Zitat:

Ist da eine DLL mit im Spiel?

In diesen 20 Codezeilen nicht.

Ich habe diese Prüfung auf "Keinen Zugriff" erst jetzt um das List.LoadFromFile herumgebaut...damit nicht der MadExcept 1 Mal im Jahr an dieser Stelle aufpoppt.
Original:

zusammenfalten · markieren

Delphi-Quellcode:

if FDialog.Execute(Parent.Handle) then
begin
  FPreferences.PreferencesCommon.ImportCsvEMCOTFolder := ExtractFilePath(FDialog.FileName);
  FPreferences.SavePreferences;
  List.LoadFromFile(FDialog.FileName);
  FileNameComplete := FDialog.FileName;

  // Prüfung ob schon eingelesen
  FileName := ExtractFileName(FileNameComplete);
  FileNameBackup := FileName;
  ...
  // ca. 15 Zeilen weiter in der gleichen "procedure" ohne Fehler
      ...
      except
        on E: Exception do
        begin
          if Assigned(FOnEndImport) then
          begin
            FOnEndImport(Self);
          end;

          DMZU.Database.TransactionRollback;

          if Assigned(FOnImportError) then
          begin
            Error := TKTEError.Create;
            try
              Error.ErrorType := etMisc;
              Error.ErrorStrings.Text := E.Message;
              FOnImportError(Self, Error);
            finally
              Error.Free;
            end;
          end;
        end;
      end;

Wer kennt diesen Fehler?


Kommando zurück!

Ein 2. Delphi Neustart hat es gebracht. Jetzt wird auch der Block ausgeführt und die Fehlermeldung in der Oberfläche angezeigt. Ich hasse es.

Danke fürs Zuhören...