TryExcept

gingerswelt · Hält's aus hier Beiträge: 1

Hallo zusammen,

ich habe in einem einfachen Programm eine Try-Except-Anweisung
eingefügt, um eine Division durch Null zu verhindern.
Dennoch bringt mir der Debugger eine Fehlermeldung.
So als hätte ich die Anweisung nicht geschrieben.
Muss ich in den Voreinstellungen irgendwo ein Häkchen setzen?
Oder wo liegt das Problem?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin
  a:=1;
  b:=0;
  try
    c:=a/b;
    c:=1;
  except
    on EZeroDivide do
    begin
      ShowMessage('Erste Anweisung: c = '+FloatToStr(c));
      ShowMessage('Zweite Anweisung.');
    end;
  end;
end;

Grüße
gin

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

Gausi · Verfasst: Sa 22.10.05 16:47

Hallo und

in der Entwickler-Ecke!

Bei den "Debugger-Optionen" unter "Sprach-Exeptions" den Haken bei "Bei Delphi Exceptions stoppen" rausmachen. Dann sollte es klappen.

_________________
We are, we were and will not be.

Ja-Pa · Verfasst: Sa 22.10.05 16:49

Der Debugger zeigt dir immer alle Exceptions an (außer du hast das in den Projekteinstellungen deaktiviert).
Nur wenn du das Programm ohne Debugger ausführst, bekommst du keine zusätzliche Exception-Meldung.

_________________
Der Autor dieses Textes haftet nicht für Schäden an Soft- oder Hardware
oder Vermögensschäden, die durch das Benutzen des Textes entstehen.

hallo · Verfasst: Sa 22.10.05 19:01

In diesem Fall würde ich dir aber eher raten, das über ein if abzufragen. Das würde warscheinlich besser gehen und D bringgt auch keine Fehlermeldung!

_________________
Der beste je Programmierte Trojaner: Windows XP
Wäre es nicht adequat, den Usus heterogener Termini zu minimieren?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme