Komponente Division durch Null

[USchoch]

Hallo
Ich habe vor einiger Zeit eine Komponente namens „Windrose“ geschrieben. Wenn ich diese in einen Testprogramm einfüge, kann ich mit einem Scrollbar den Zeiger von 0 bis 359 Grad drehen. Das läuft tiptop.

Jetzt bin ich am Schreiben eines Programms zum Anzeigen der Daten meiner Wetterstation. Da habe ich diese Windrose auch drin. Wenn diese angezeigt werden soll, kommt eine Fehlermeldung „Division durch 0 im File Windrose.pas", also in der Komponente Windrose, die ich mit Uses Windrose eingebunden habe. In Windrose.pas hat es irgendwo eine Zeile. mit irgendwas/(maxwert-minwert). Diese beiden Werter setze ich weder im Testprogramm noch im Wetterstationsprogramm. Im Testprogramm keine Fehlermeldung, Im Wetterstationsprogramm schon

Warum wohl?

Gruss
Uli

[Zvoni]

Debug-Version nutzen, und StackTrace anschauen?

[Soner]

Bei der Formel irgendwas/(maxwert-minwert) ergibt das (maxwert-minwert) wahrscheinlich bei bestimmten Umständen Null.
Du kannst es mit exception abfangen:

Code: Alles auswählen

try
x:=irgendwas/(maxwert-minwert);
except
x:=0; //oder irgendetwas anderes
end;

[Zvoni]

Bei der Formel irgendwas/(maxwert-minwert) ergibt das (maxwert-minwert) wahrscheinlich bei bestimmten Umständen Null.
Du kannst es mit exception abfangen:

Code: Alles auswählen

try
x:=irgendwas/(maxwert-minwert);
except
x:=0; //oder irgendetwas anderes
end;

Wieso Exception abfangen?
Gleich von vornherein defensiv programmieren

Code: Alles auswählen

If MaxWert-Minwert<>0 Then //bzw. ggfs. auf >0 prüfen --> kein negativer Nenner
  x:=Irgendwas/(MaxWert-MinWert)
Else
  ShowMessage('Uuupss! Du willst durch 0 teilen?');

[theo]

Hab mir das mit der Nulldivision mal kurz allgemein angeschaut. Das ist schon recht knifflig.

Code: Alles auswählen

   aDouble:=1 / 0; //Keine Exception, Resultat ist +Inf

   integer_null:=0;
   aDouble:=1 div integer_null; //RunError(200) EDivByZero / Division by zero
   aDouble:=1 / integer_null;   //RunError(208) / EZeroDivide / Floating point Division by zero  

[wp_xyz]

Bei der Formel irgendwas/(maxwert-minwert) ergibt das (maxwert-minwert) wahrscheinlich bei bestimmten Umständen Null.
Du kannst es mit exception abfangen:

Code: Alles auswählen

try
x:=irgendwas/(maxwert-minwert);
except
x:=0; //oder irgendetwas anderes
end;

Das "versteckt" den Fehler, ohne ihn zu lösen, und erschwert das Debuggen, denn dass hier eine Fehlermeldung verschluckt wird, muss man erst finden. Da ist die DIVIDE_BY_ZERO Exception-Meldung die bessere Lösung, denn nun weiß man, dass durch Null dividiert wurde und kann nach dem Fehler suchen.

[Zvoni]

Bei der Formel irgendwas/(maxwert-minwert) ergibt das (maxwert-minwert) wahrscheinlich bei bestimmten Umständen Null.
Du kannst es mit exception abfangen:

Code: Alles auswählen

try
x:=irgendwas/(maxwert-minwert);
except
x:=0; //oder irgendetwas anderes
end;

Das "versteckt" den Fehler, ohne ihn zu lösen, und erschwert das Debuggen, denn dass hier eine Fehlermeldung verschluckt wird, muss man erst finden. Da ist die DIVIDE_BY_ZERO Exception-Meldung die bessere Lösung, denn nun weiß man, dass durch Null dividiert wurde und kann nach dem Fehler suchen.

Breakpoint vor die Zeile setzen, und sich dann die Werte anschauen?
Ist ja seine eigene Unit

[theo]

Wenn man der Angabe der Fehlermeldung von USchoch trauen kann, wäre es eine Integerdivision, also eine mit "div", sonst wäre es eine "Floating point Division by zero", soweit ich das überschaue.
Falls es jemand besser weiss, immer her damit!

[wp_xyz]

Bei der Formel irgendwas/(maxwert-minwert) ergibt das (maxwert-minwert) wahrscheinlich bei bestimmten Umständen Null.
Du kannst es mit exception abfangen:

Code: Alles auswählen

try
x:=irgendwas/(maxwert-minwert);
except
x:=0; //oder irgendetwas anderes
end;

Das "versteckt" den Fehler, ohne ihn zu lösen, und erschwert das Debuggen, denn dass hier eine Fehlermeldung verschluckt wird, muss man erst finden. Da ist die DIVIDE_BY_ZERO Exception-Meldung die bessere Lösung, denn nun weiß man, dass durch Null dividiert wurde und kann nach dem Fehler suchen.

Breakpoint vor die Zeile setzen, und sich dann die Werte anschauen?
Ist ja seine eigene Unit

Natürlich. Aber was machst du ein Jahr später, wenn die Unit auf 10.000 Zeilen angewachsen ist, du all die Details hierzu vergessen hast, und dein Kunde bemängelt, dass die Windrose manchmal ganz falsche Werte anzeigt. Da ist der Fehler viel schneller gefunden, wenn es eine Fehlermeldung gibt, ab der man weitersuchen kann.

[Zvoni]

Natürlich. Aber was machst du ein Jahr später, wenn die Unit auf 10.000 Zeilen angewachsen ist, du all die Details hierzu vergessen hast, und dein Kunde bemängelt, dass die Windrose manchmal ganz falsche Werte anzeigt. Da ist der Fehler viel schneller gefunden, wenn es eine Fehlermeldung gibt, ab der man weitersuchen kann.

-->

Jetzt bin ich am Schreiben eines Programms zum Anzeigen der Daten meiner Wetterstation.

Ich bezweifel dass dieses Programm an "Externe User" herausgegeben wird.
Unabhängig davon haste natürlich recht.
Womit wir beim Logging wären.....

[USchoch]

Hallo mitenand

Problem gelöst. Ich habe nicht beachtet, dass im erwähnten File Windrose.pas eine weiter Komponente drin ist namens Massstab. Die hat einen MaxValue und einen MinValue. Im Testprogramm habe ich den nicht verwendet, daurm geht es, Im Wetterstationsprogramm schon. Bei einem waren die Werte nicht gesetzt, also Null.

Grus
Uli

[Mathias]

Wen ein divison by zero bei einer unwichtigen Stelle kommt, kann man es zumindest für Float den Fehler ignorieren lassen.
Bei Ganzzahlen schmiert er immer noch ab.
Aber wenigstens stürzt einem das Programm zB. bei einer Render-Szene nicht ab.
Bei Mathe-Aufgabe würde ich dies nicht unbedingt machen.

Code: Alles auswählen

program Project1;

  procedure SetMXCSR;
  var
    w2: word = 8064;
  begin
    asm
             Ldmxcsr w2
    end;
  end;

var
  i: integer;
begin
  SetMXCSR;
  for i := -10 to 10 do begin
    WriteLn(50 / i);  // Läuft einfach weiter
  end;
  WriteLn(#10);
  for i := -10 to 10 do begin
    WriteLn(50 div i);  // Schmiert ab
  end;
end.