Array Zugriffsverletzung

[Tobinator]

Delphi-Quellcode:

procedure TMain.Button1Click(Sender: TObject);
begin
  Würfel := TWürfel.Create;  // Das muss noch rein
  Würfel.SetPunkte(2,2,4);
  Würfel.SetPunkte(2,3,3);
  Label1.Caption:=IntToStr(Würfel.GetPunkte(2,2)) + IntToStr(Würfel.GetPunkte(2,3));
  Würfel.free;    // Das evtl. auch noch
end;