Durschnitt berechnen

[bigpoopapizza]

Delphi-Quellcode:

  gksumme := gk1+gk2+gk3+gk4+gk5+gk6+gk7+gk8+gk9+gk10+gk11+gk12+gk13+gk14+gk15+gk16+gk17+gk18+gk19+gk20+gk21+gk22;
  Label78.Caption := IntToStr (gksumme);



  if not(CheckBox2.Checked) then NoteFA:=0;
  if not(CheckBox1.Checked) then NoteBLL:=0;


  Label22.Caption := IntToStr((SummeLK1+SummeLK2+NoteFA)*2);
  Label30.Caption := IntToStr((SummeLK1+SummeLK2+NoteFA)*2);
  Label64.Caption := IntToStr(QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL);
  Label32.Caption := IntToStr(QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL);
  Label31.Caption := IntToStr (gksumme);
  Label34.Caption := IntToStr ((QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL)+((SummeLK1+SummeLK2+NoteFA)*2)+(gksumme));
  abi := ((QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL)+((SummeLK1+SummeLK2+NoteFA)*2)+(gksumme));
  

  if ((abi > 281) and (abi < 296)) then abinote := 3.9;

das is mein erstes delphiprogramm!!
und zwar soll das zur berechnung zur abinote dienen soll!!
mein problem ist, dass man wenn man jetzt z.b. 281-296 punkte gesamt hat und dann ne durschnittsnote 3.9 hat wie geht das??
ich habs probiert indem was da als letztes steht!! if ((abi > 281) and (abi < 296)) then abinote := 3.9;

[edit=Luckie]Code auf das nötigste reduziert. Delphi-Tags gesetzt und Titel angapasst. Mfg, Luckie[/edit]