Notendurchschnitt erechnen!

[vaTras]

Hallo liebe Community,

Ich habe ein Problem bei meienem Programm, welches den Notendurchschnitt erechnen soll. Das Problem liegt dadrin, dass wenn ein
Fach nicht belegt wurde (sprich, wenn in dem Feld kein Eintrag ist), soll der Fächer Gesamtanzahl 1 Fach abgezogen werden!

Delphi-Quellcode:

var
  Form1: TForm1;
  var eng,ma,de,lat,franz,span,bio,ch,ph,poli,ge,edk,mu,ku,sp,inf,ds,anzahl,anzahl2,gesamt : integer ;
  notendurchschnitt : real;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
 eng:=strtoint (edit1.text)  ;
 de:=strtoint (edit2.text)    ;
 ma:=strtoint (edit3.text)    ;
 lat:=StrToIntDef(Edit4.Text,0);
 franz:=StrToIntDef(Edit5.Text,0);
 span:=StrToIntDef(Edit6.Text,0);
 bio:=StrToIntDef(Edit8.Text,0);
 ch:=StrToIntDef(Edit9.Text,0);
 ph:=StrToIntDef(Edit10.Text,0);
 poli:=StrToIntDef(Edit11.Text,0);
 ge:=StrToIntDef(Edit12.Text,0);
 edk:=StrToIntDef(Edit13.Text,0);
 mu:=StrToIntDef(Edit14.Text,0);
 ku:=StrToIntDef(Edit15.Text,0);
 sp:=StrToIntDef(Edit16.Text,0);
 inf:=StrToIntDef(Edit17.Text,0);
 ds:=StrToIntDef(Edit18.Text,0);
 anzahl:=anzahl2;
 anzahl2:=17;
 if lat=0 then anzahl:=anzahl2-1 ;
 gesamt:=eng+ma+de+lat+franz+span+bio+ch+ph+poli+ge+edk+mu+ku+sp+inf+ds   ;
 notendurchschnitt:=gesamt/anzahl;
 edit7.text:=floattostr (notendurchschnitt) ;

Ich hoffe ihr könnt mir helfen.

mfg M. Botterbrodt!