try?

[Sanguis]

Hallo,

ich nutze folgenden Code im onClick eines DBNavigator:

Delphi-Quellcode:

bsSkinLabel1.Caption := IntToStr(form1.ASQLite3Table1.RecNo) + ' / ' + IntToStr(form1.ASQLite3Table1.RecordCount);

Jetzt gibt es Situationen, wo ein Button des DBNavigator nicht enabled ist. Geklickt werden, kann darauf aber trotzdem. Dann gibts eine AccessViolation... ich wollte es mit einem try Block abfangen, der wird aber leider ignoriert. Es kommt trotzdem die AccessViolation...

Gruß,
Andreas

[DeddyH]

Ich kann im Moment nicht erkennen, was der Code mit einem DBNavigator zu tun hat. Und es wäre vielleicht ganz interessant, Deinen "try-Block" einmal zu sehen.

[himitsu]

Zitat:

ich wollte es mit einem try Block abfangen, der wird aber leider ignoriert. Es kommt trotzdem die AccessViolation...

Wie immer die beliebte und wichtige Frage:
Wird diese Exception NUR vom Debugger angezeigt, oder wird sie wirklich im Programm ausgelöst/ausgegeben?

[Sanguis]

Hallo,

ich will in einem SkinLabel darstellen welcher Datensatz von wievielen der DBNavigator grad anzeigt. Um dies aktuell zu halten, hab ich es im DBNavigator onClick eingetragen.
Mein Code mit try ist folgender:

Delphi-Quellcode:

try
 bsSkinLabel1.Caption := IntToStr(form1.ASQLite3Table1.RecNo) + ' / ' + IntToStr(form1.ASQLite3Table1.RecordCount);
except
 showmessage('test');
end;

Aber das fängt die AccessViolation leider nicht ab.

Gruß,
Andreas

[DeddyH]

Dann formuliere ich himitsus Frage mal anders: wird auch dann eine Exception ausgelöst, wenn Du das Programm außerhalb der IDE startest?

[Sanguis]

Ja, leider... Ich bekomme sie einfach nicht abgefangen.

[DeddyH]

Dann zeig uns doch einmal die komplette OnClick-Methode.

[Sanguis]

Hab ich schon. Aber hier nochmal die komplette Procedure:

Delphi-Quellcode:

procedure TForm1.bsSkinDBNavigator1Click(Sender: TObject;
  Button: TbsNavigateBtn);
begin
try
 bsSkinLabel1.Caption := IntToStr(form1.ASQLite3Table1.RecNo) + ' / ' + IntToStr(form1.ASQLite3Table1.RecordCount);
except
 showmessage('test');
end;

Eigentlich nix großes... ich kapier das nicht...

[DeddyH]

Ich kenne jetzt die SQLite-Komponenten nicht, aber besitzt die Table eine Eigenschaft Active oder so ähnlich? Dann würde ich das einmal so versuchen:

Delphi-Quellcode:

procedure TForm1.bsSkinDBNavigator1Click(Sender: TObject;
  Button: TbsNavigateBtn);
begin
  if ASQLite3Table1.Active then
    if ASQLite3Table1.RecordCount > 0 then
      try
        bsSkinLabel1.Caption := IntToStr({form1.}ASQLite3Table1.RecNo) + ' / ' + IntToStr({form1.}ASQLite3Table1.RecordCount);
      except
        on E: Exception do
          MessageBox(0,PChar('Es ist ein Fehler aufgetreten:' + sLineBreak + E.Message), 'Oops',MB_OK or MB_ICONERROR);
      end;
end;

[Sanguis]

Danke. Ja, die Table hat ein Active Attribut.
Aber auch so wird leider die AccessViolation ausgelöst. Mit und ohne IDE...

[DeddyH]

Dann hilft nur: Breakpoint setzen, Durchsteppen, fehlerauslösende Zeile ermitteln und nachsehen, woran es liegen könnte.

[Sanguis]

Ich weiß woran es liegt, das die AcessViolation auftritt. Eben daran das ich auf inaktive Buttons des DBNavigator klicke. Die Frage ist nicht, wie ich das Auslösen der AV verhindere sondern wie ich es abfange.

[fatalerror]

Zitat:

Zitat von Sanguis

Ich weiß woran es liegt, das die AcessViolation auftritt. Eben daran das ich auf inaktive Buttons des DBNavigator klicke. Die Frage ist nicht, wie ich das Auslösen der AV verhindere sondern wie ich es abfange.

Sorry, aber deine Erklärung für die AV ist nicht einleuchtend.
Ein Klick auf einen inaktiven Button löst keine Aktion bzw keinen Event aus.
Oder verwendest du nicht den mit Delphi ausgelieferten DBNavigator? Dann würde der Fehler allenfalls in dieser Komponente liegen, was ich mir aber nicht richtig vorstellen kann.

[Sanguis]

Die AV wird ausgelöst, weil ich meinen Quelltext im onClich des DBNavigator habe.

[fatalerror]

Zitat:

Die AV wird ausgelöst, weil ich meinen Quelltext im onClich des DBNavigator habe.

Genau das stimmt nicht bei einem Standard DBNavigator.
Bei einem Klick auf einen inaktiven Button im DBNavigator wird keine Aktion ausgelöst.

[Sanguis]

So, hab es gelöst. Ich hab meinen Code in die onDataChange Routine des DataSource gepackt. Im onClick steht jetzt nichts mehr, es wird auch keine AV ausgelöst.

Gruß,
Andreas