NotenDurchschnitt: Unterschied zwischen den Versionen

Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
KKeine Bearbeitungszusammenfassung
Zeile 2: Zeile 2:
=== RAP-Funktion "{{SEITENNAME}}" ===
=== RAP-Funktion "{{SEITENNAME}}" ===
|'''Beschreibung''' ||  
|'''Beschreibung''' ||  
     procedure NotenDurchschnitt(const aSchuelerId, aJahr, aAbschnitt: Integer;
     procedure NotenDurchschnitt(const aSchuelerId, aJahr, aAbschnitt: Integer;  
                        var Beste, Schlechteste: Integer; var Schnitt: String);
        var Beste, Schlechteste: Integer; var Schnitt: String);
|-
|-
|'''Parameter''' ||  
|'''Parameter''' ||  
Zeile 18: Zeile 18:
     procedure DetailBeforePrint;
     procedure DetailBeforePrint;
     var
     var
       lBeste, lSchlechteste : integer;
       Beste: Integer;
       lSchnitt : String;
       Schlechteste : Integer;
      Schnitt : String;
     begin
     begin
       NotenDurchschnitt(Schueler['ID'],Schueler['AktSchuljahr'],Schueler['AktAbschnitt'],
       NotenDurchschnitt(Schueler['ID'],Schueler['AktSchuljahr'],Schueler['AktAbschnitt'],Beste,Schlechteste,Schnitt);
       Label1.Caption:=IntToStr(lBeste);
       Label1.Caption:=IntToStr(Beste);
       Label2.Caption:=IntToStr(lSchlechteste);
       Label2.Caption:=IntToStr(Schlechteste);
       Label3.Caption:=lSchnitt;
       Label3.Caption:=Schnitt;
     end;
     end;
|}
|}