SystemException Ursache finden

[akuk]

Hallo
Suche seit Wochen nach der Ursache der SystemException.
Meine Entw.Umgebung ist : Delphi RAD 10.3m Windows 7
An den Stellen im Programm vo ich vermute dass die Exception auslöst habe ich probiert
die Exception abzufangen mit :
try ..//verdächtige Sequenz
except
on e:Exception do
raise Exception.Create(format('Name der Sequenz',[e.Message]));
end;

Es wurde immer die selbe Exception angezeigt:

Exception Klasse .. 5 access violation at ....
aber nie meine Message (Name der Sequenz)

Suche ich am falschen Orten ?
Oder gibt es eine andere Möglichkeit die Ursache resp. die auslösende Sequenz zu finden ?

[scrat1979]

Haltepunkt setzen und mit dem Debugger schauen wo es knallt. Das wäre meine erste Handlung bei der Fehlersuche.

[Delphi.Narium]

Zu Delphi 7-Zeiten ging:

Programm im Debugger starten.
Laufenlassen, bis der Fehler auftritt. Im Idealfall geht der Debugger zu der Stelle, an der der Fehler auftritt.

Wenn nein: Fehleradresse aus der Fehlermeldung nehmen.

In der IDE im Menü "Suchen" den Menüeintrag "Laufzeitfehler suchen ..." auswählen, im Eingabefenster die Fehleradresse aus der Fehlermeldung eingeben und suchen lassen.

Mit etwas Glück kommt man an die genaue Fehlerstelle.

Bei 'ner Accessvolation wird meist auf etwas zugegriffen, was es nicht (mehr) gibt. Der Fehler kann also auch außerhalb der verdächtigen Routine liegen, höchstwahrscheinlich "irgendwo kurz vor dem Aufruf der verdächtigen Routine" oder der Fehlerbehandlung per Try / Except.

[himitsu]

Es gibt Erweiterungen, welche auch im Programm einen Stacktrace bei Fehlermeldungen anzeigen.
z.B. Eurekalog, MadExcept oder jclDebug/jclHookExceptions (JEDI)

pssst:
Format('Name der Sequenz', [E.Message]) > das fehlende %s ist bestimmt nur ein Fehler beim Kopieren,
aber Format? > raise Exception.CreateFmt('Name der Sequenz: %s', [E.Message]);

Per se ist es eigentlich schöner die originale Exception beizubehalten, denn so manche Exception-Klasse hat Zusatzinfos, die sonst verloren gehen.

Delphi-Quellcode:

except
  on E: Exception do begin
    E.Message := 'Name der Sequenz: ' + E.Message;
    raise;
  end;
end;

Aber gerade bei System-Exception hat Delphi ein echt saublödes Verhalten, denn beim Re-Raise kann es passieren (z.B. wenn die Exception durch die Messagebehandlung von Windows rauscht),
dass Delphi die originale Windows-Exception wiederherstellt und dabei der geänderte Text flöten geht.

Hier könnte man nun mit verschachtelten Inner-Exceptions arbeiten,

Delphi-Quellcode:

// TApplicationEvents.OnException
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
var
  S: string;
begin
  while Assigned(E) do begin
    if S <> '' then
      S := S + sLineBreak + sLineBreak;
    S := S + E.ClassName + ': ' + sLineBreak + Trim(E.Message);
    E := E.InnerException;
  end;
  ShowMessage(S);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    Tag := Tag div Tag;  // Division durch 0
  except
    Exception.RaiseOuterException(Exception.Create('Name der Sequenz'));
  end;
end;

Code:

Exception:
Name der Sequenz

EDivByZero:
Division durch Null

Delphi-Quellcode:

// falls man etwas hat, dass sich bei Exception.GetStackInfoStringProc registriert hat und den Stacktrace liefert
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
var
  S, T: string;
begin
  //T := E.StackTrace;  // Stack der äußeren Exception, aber uns interessiert ja die Innersten/Ursprünglichen viel mehr
  while Assigned(E) do begin
    if S <> '' then
      S := S + sLineBreak + sLineBreak;
    S := E.ClassName + ': ' + sLineBreak + Trim(E.Message);
    if not (E.InnerException) and Assigned(E.StackInfo) then
      S := S + sLineBreak + sLineBreak + 'Stacktrace:' + sLineBreak + E.StackTrace;
    E := E.InnerException;
  end;
  //if T <> '' then
  //  S := S + sLineBreak + sLineBreak + 'Stacktrace:' + sLineBreak + T;
  ShowMessage(S);
end;

aber der hauseigene Fehlerdialog von Delphi ist ein bissl "dämlich" und Zeigt sowas nicht an.

[akuk]

Hallo
Vielen Dank für Euere Hilfe.
Kann dies eine Exception auslösen ?

(aus vcl.Forms) :

function TCustomForm.IsFormSizeStored: Boolean;
begin
Result := AutoScroll or (HorzScrollBar.Range <> 0) or (VertScrollBar.Range <> 0);
end;

[Delphi.Narium]

Ja, wenn das Formular vorher nicht erstellt oder vorher freigeben wurde.

Hast Du dort ein konkretes Problem?

Im Debugger die Werte alle anschauen.

Der Debugger müsste Dir sagen können, ob da irgendwas nicht initialisiert ist ...

Aber zugegeben: An soeiner Stelle würde ich keinen Fehler vermuten.

Wie bist Du dahinter gekommen, dass dort ein Fehler sein könnte?
Könntest Du eventuell den Quelltext, der zum Aufruf von IsFormSizeStored oder den Aufruf von IsFormSizeStored enthält posten?

Eventuell lässt sich die Fehlerursache dadurch weiter einkreisen.