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?!