Array Zugriffsverletzung

[Kytrix]

Delphi-Quellcode:

unit mMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, mWürfel;

type
  TMain = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    ImProjEbene: TImage;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    Würfel: TWürfel;   // Hier erzeuge ich doch ?
  public
    { Public-Deklarationen }
  end;

var
  Main: TMain;

implementation

{$R *.dfm}

procedure TMain.Button1Click(Sender: TObject);
begin
  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));
end;


end.