procedure TForm1.Button15Click(Sender: TObject);
type tZahlen=array[0..15] of integer;
var i: integer;
Begin
i:= 15
Memo_anzeige_noten.Lines.add(IntToStr(i));
end;
end.
naja wir wollten das halt mit meheren buttons machen und damit einen Notendurchschneitsrechner programieren bei dem die einzelnen zahlen in das memo geschrieben werden und dann automatisch zusammengerechnet werden.
das war jedenfalls der plan
