Arrayvariable

[daNiii]

Delphi-Quellcode:

Spalten, Zeilen: integer;  (globale Variablen

procedure TForm1.FormShow(Sender: TObject);
begin

Spalten:= 10;
Zeilen:= 10;

Spielbrettaufbauen();
end;


procedure TForm1.Spielbrettaufbauen();
var
 horizontal,vertikal: integer;
 Feld: Array[0..Spalten, 0..Zeilen] of Tshape;    //hier kommt der Fehler

begin

for horizontal := 1 to Spalten do  begin
Abstand_hor:= Abstand_hor + Breite;
    Abstand_ver:= Basis;
    for vertikal := 1 to Zeilen do
    begin
       Abstand_ver:= Abstand_ver + Hoehe;
       //das Shape wird formatiert
       Feld[horizontal, vertikal] := Tshape.create(self);
       Feld[horizontal, vertikal].Parent:=  form1;
       Feld[horizontal, vertikal].height:=  Hoehe;
       Feld[horizontal, vertikal].width:=  Breite;
       Feld[horizontal, vertikal].top:=  Position_top + Abstand_ver;
       Feld[horizontal, vertikal].left:=  Position_left + Abstand_hor;
       Feld[horizontal, vertikal].OnMouseUp:= Fillshape;
    end;
end;