dividieren

[daNiii]

Hallo!

In meinen Programm möchte ich dividieren, leider erscheint aber eine Fehlermeldung.

Delphi-Quellcode:

var
Counter, CounterNoten, Note: integer;
Ergebnis: extended;
begin
Counter:= 0;
CounterNoten:= 0;
if Node.stateindex > 0 then  begin
      adoquery1.close;
      adoquery1.sql.Clear;
      adoquery1.SQL.Add('SELECT * from Bewertungen where Schülernummer = '+inttostr(Node.stateindex));  //aufsteigende
      adoquery1.Open;
      While not  ADOQUERY1.Eof do begin
         Counter:= Counter +1;
         Note:= adoquery1.FieldValues['Bewertung'];
         CounterNoten:= CounterNoten + Note;

         ADOQUERY1.next;
      end;
      ADOQUERY1.close;

Ergebnis:= CounterNoten / Counter; // hier kommt der Fehler

statusbar1.Panels[0].text := 'Leistungen: '+inttostr(Counter);
statusbar1.Panels[1].text := 'Notend.: '+floattostr(Ergebnis);
end else begin
statusbar1.Panels[0].text := '';
end;

Kann mir bitte jemand helfen?!

[himitsu]

Zitat von daNiii:

Kann mir bitte jemand helfen?!

Mal überlegen

"hier kommt der Fehler " ... Welcher?



*glaskugel rauskram*
Es ist nicht zufällig DivBy0?

Schau mal in dein Mathebuch, was dieses zum Thema "Division durch 0" sagt.

Delphi-Quellcode:

if Counter = 0 then Ergebins := 0
else Ergebnis := CounterNoten / Counter;

(statt :=0 kannst'e och was Anderes machen, welches den "Fehler" anzeigt, bzw. irgendwie kenntlich macht)

[daNiii]

Danke!
es funktioniert

[DeddyH]

Gibt es eigentlich auch eine Exception ETopSecretError oder wieso wird hier so selten die Art des Fehlers genannt?