Ressourcenschutz wird übergangen

[barnti]

Hi,

habe die folgenden Zeilen:

Delphi-Quellcode:

...  
if found then
  try
    // Markieren des akt. Datensatzes
    Bookmark:= Grid.DataSource.DataSet.GetBookmark;
    
    // Filtereigenschaft zurücksetzen
    Grid.DataSource.DataSet.Filter:= FormerFilter;

    // Auf den markierten Datensatz springen
    Grid.DataSource.DataSet.GotoBookmark(Bookmark);    // Hier gibt es die Schutzverletzung
    
    // Bookmark entfernen
    Grid.DataSource.DataSet.FreeBookmark(Bookmark);
  except
    Grid.DataSource.DataSet.Filter:= FormerFilter;
  end;
end;

An der beschriebenen Stelle bricht das Programm mit einer Schutzverletzung ab, ohne in den Resourcenschutzblock
zu springen.

Was mache ich falsch? Warum wird der Except-Teil nicht ausgeführt?
Danke!

[shmia]

Zitat von barnti:

An der beschriebenen Stelle bricht das Programm mit einer Schutzverletzung ab, ohne in den Resourcenschutzblock zu springen.

Das ist kein Resourcenschutzblock.
Ein Resourceschutzblock hat eine folgende Struktur:

Delphi-Quellcode:

// Resource anfordern (GetBookmark)
try
   // mit Resource arbeiten (GotoBookmark)
finally
   // Resource freigeben (FreeBookmark)
end

Ich würde mal kräftig von Assert Gebrauch machen.

Delphi-Quellcode:

// erst mal prüfen
Assert(Assigned(Grid));
Assert(Assigned(Grid.DataSource));
Assert(Assigned(Grid.DataSource.DataSet));
// jetzt ist alles wasserdicht, der eigentliche Code kann beginnen

siehe auch Delphi Fehlersuche

[barnti]

Hi,

hast Recht!
Wie auch immer. Assert liefert mir auch nicht mehr als ich schon weiß! Oder?

Wo die Zugriffsverletzung geschieht weiß ich. Nur warum wird in diesem Fall nicht der der Except-Teil angesprungen?

[shmia]

Zitat von barnti:

Assert liefert mir auch nicht mehr als ich schon weiß! Oder?

Es beweisst, dass alle Objekte <> nil sind. Andernfalls würde hier
eine Exception erzeugt.
Und zwar bevor das Programm auf eine Zugriffsverletzung läuft.
Natürlich nur, wenn in den Compileroptionen -> Debuggen -> Assertion,
Schalter {$C} gesetzt ist( was zur Fehlersuche zu empfehlen ist )

Zitat von barnti:

Wo die Zugriffsverletzung geschieht weiß ich. Nur warum wird in diesem Fall nicht der der Except-Teil angesprungen?

Bevor der Except-Teil betreten wird, wird die Exception zuerst in der IDE angezeigt.
Lässt man das Programm weiterlaufen, kommt man durch den Except-Abschnitt.

[MathiasSimmack]

Zitat von barnti:

Was mache ich falsch? Warum wird der Except-Teil nicht ausgeführt?

Startest du dein Programm zufälliger Weise aus Delphi heraus (sprich: F9). In dem Fall würde ich mir keinen Kopf machen. Es ist eine Standardeinstellung von Delphi, bei Sprach-Exceptions zu stoppen. Das kann man natürlich auch abschalten.

[barnti]

Hi Leute,

die Sprachexceptions sind ausgeschaltet!

Und 'Ja' die betreffenden Objekte sind nicht Nil!

Nachdem die Schutzverletzung ausgelöst wurde, kann ich die Anwendung nicht weiterlaufen lassen. Es wird mir der 'Hex-Viewer' angezeigt. Beim Wiederanstoßen der IDE, wird der Fehler erneut ausgelöst.

[SirThornberry]

So wies aussieht wird vermutlich doch der exceptblock ausgeführt. Die erste exception kommt vom Debugger, die zweite vom Programm ansich und dann sollte es normal im except-block weitergehen. Kann natürlich sein das bei accessviolations da nicht reingegangen wird weil es ja eine systemfehlermeldung ist und nicht von ner komponente ausgelöst wird...

[barnti]

Hi,

Zitat von SirThornberry:

So wies aussieht wird vermutlich doch der exceptblock ausgeführt. Die erste exception kommt vom Debugger, die zweite vom Programm ansich und dann sollte es normal im except-block weitergehen. Kann natürlich sein das bei accessviolations da nicht reingegangen wird weil es ja eine systemfehlermeldung ist und nicht von ner komponente ausgelöst wird...

Da ich im Exception-Block einen Breakpoint gesetzt habe, ist zu sagen: hier kommt die Ausführung nie an...

Wahrscheinlich hast Du Recht. Es ist keine 'normale' Zugriffsverletzung.

[SirThornberry]

Du könntest noch probieren ob Application.OnException funktioniert

[barnti]

Hi,

Zitat von SirThornberry:

Du könntest noch probieren ob Application.OnException funktioniert

werde ich machen aber nicht mehr heute. Werde morgen wieder hier sein...

Danke erstmal!