Notendurchschnitt erechnen!

[bitsetter]

Hi,

mit einer Schleife sieht das Ganze trotzdem übersichtlicher aus:

Delphi-Quellcode:

uses math;

procedure TForm1.Button1Click(Sender: TObject);
type
  TNote = 0..6;
  PNoteArray = ^NoteArray;
  NoteArray = Array[0..0] of TNote;

  TSchulfach = record
    eng, ma, de, lat, franz : TNote;
end;
var
  Schulfach: TSchulfach;
  PNotAr: PNoteArray;
  Loop, Anzahl, Noten: integer;
begin
  ZeroMemory(@Schulfach, SizeOf(Schulfach));
  with Schulfach do//Beispiel
  begin
    eng := 4;
    ma := 2;
    de := 1;
  end;

  PNotAr:= @Schulfach;
  Anzahl:= 0;
  Noten:= 0;
  for loop := 0 to Pred(SizeOf(Schulfach)) do
    if PNotAr^[Loop]> 0 then
    begin
      inc(Anzahl);
      inc(Noten, PNotAr^[Loop]);
    end;
  Caption:= 'Notendurchschnitt: '+ FloatToStr(RoundTo(Noten / Anzahl, -1));
end;