1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

begin
   if noten[6]>0 then
     begin
      versetzt_lb.caption:='Schüler ist nicht versetzt, da mind. eine 6';
   end
    else
     begin
     if noten[5]>1 then
      begin
       versetzt_lb.caption:='Schüler ist nicht versetzt, da mehr als eine 5';
        end
         else
          begin
           if noten[5]=0 then
            begin
             versetzt_lb.caption:='Schüler ist versetzt, da keine 5 oder 6';
              end
               else
                begin
                 if noten[1]+noten[2]>0 then
                  begin
                  versetzt_lb.caption:='Schüler ist versetzt, da er die 5 ausgleichen kann';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:

unit U_Notenberechnung;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, jpeg, ExtCtrls;

type
  TVersetzung = class(TForm)
    mathe_ed: TEdit;
    deutsch_ed: TEdit;
    englisch_ed: TEdit;
    franz_ed: TEdit;
    phy_ed: TEdit;
    mathe_label: TLabel;
    deutsch_label: TLabel;
    englisch_label: TLabel;
    franz_label: TLabel;
    physik_label: TLabel;
    Ende: TButton;
    Start: TButton;
    Label6: TLabel;
    Neu: TButton;
    Image1: TImage;
    versetzt_lb: TLabel;
    procedure EndeClick(Sender: TObject);
    procedure NeuClick(Sender: TObject);
    procedure StartClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Versetzung: TVersetzung;
  noten: array [1..6] of integer;
implementation

{$R *.DFM}

procedure TVersetzung.EndeClick(Sender: TObject);
begin
 application.terminate;
end;

procedure TVersetzung.StartClick(Sender: TObject);
var
mathe, deutsch, englisch, franz, physik: integer;


  begin
  mathe:=strtoint(mathe_ed.text);
  noten[mathe]:=noten[mathe]+1;
  englisch:=strtoint(englisch_ed.text);
  noten[englisch]:=noten[englisch]+1;
  deutsch:=strtoint(deutsch_ed.text);
  noten[deutsch]:=noten[deutsch]+1;
  franz:=strtoint(franz_ed.text);
  noten[franz]:=noten[franz]+1;
  physik:=strtoint(phy_ed.text);
  noten[physik]:=noten[physik]+1;



   if noten[6]>0 then
   begin
   versetzt_lb.caption:='Schüler ist nicht versetzt, da mind. eine 6';
   end
    else
     begin
     if noten[5]>1 then
      begin
       versetzt_lb.caption:='Schüler ist nicht versetzt, da mehr als eine 5';
        end
         else
          begin
           if noten[5]=0 then
            begin
             versetzt_lb.caption:='Schüler ist versetzt, da keine 5 oder 6';
              end
               else
                begin
                 if noten[1]+noten[2]>0 then
                  begin
                  versetzt_lb.caption:='Schüler ist versetzt, da er die 5 ausgleichen kann';


        end;
      end;  
    end;
  end;
end;

procedure TVersetzung.NeuClick(Sender: TObject);
begin
 mathe_ed.clear;
 englisch_ed.clear;
 franz_ed.clear;
 phy_ed.clear;
 deutsch_ed.clear;

end;

end.					

1:
2:
3:
4:
5:
6:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin
  if not (Key in [#49 .. #54, #8]) then
   Key  := #0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
irgendwas:Integer

try
irgendwas:=strtoint (Editfeld.text);//bei irgendwas einfach iregendwas eintragen (Was du willst. Und beim Editfeld dein Editfeld eben. Den ganzen Befehl 5 mal(Anzahl der Editfelder).
     except on econverterror do
            begin
            showmessage('Bitte nur Zahlen eingeben.');
            editfeld.setfocus;
            exit;
            end;
     end;