Hallo,
und die Bereichsprüfung einschalten.
Wenn man den Quelltext genauer betrachtet, ist das ein guter Ratschlag!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Feld:array[1..48] of integer;
begin
:
For i:=1 to 60 DO
Feld[i]:=0;
Gruß Hawkeye