Statische Arrays mit type und Wertzuweisung?

[himitsu]

Erst mal fehlt dort eine Zahl:

Code:

[b]procedure[/b] TfrmSpielfeld.FormCreate(Sender: TObject);
[b]begin[/b]
bld:=(([color=red]X[/color],2,2,2,2),
      (2,1,1,1,2),
      (2,1,0,1,2),
      (2,1,0,1,2),
      (2,1,1,1,2),
      (2,2,2,2,2));
[b]end[/b];

Und dann bin ich mir nicht sicher ob es so geht das komplette Array zuzuweisen, wenn ich es auch in einer Procedure versuche kommt ebenfalls ein Fehler.

Aber so ging es:

Delphi-Quellcode:

Type TMatrix = array[0..5, 0..4] of integer;

Var bld: TMatrix =
  ((0,2,2,2,2),
   (2,1,1,1,2),
   (2,1,0,1,2),
   (2,1,0,1,2),
   (2,1,1,1,2),
   (2,2,2,2,2));

[add]
Gut dank Luckie hat sich das gelöst.
Dann besteht aber noch diese Möglichkeit:

Delphi-Quellcode:

Type TMatrix = Array[0..5, 0..4] of integer;

Var bld: TMatrix;

Procedure TfrmSpielfeld.FormCreate(Sender: TObject); 
  Const bld2: TMatrix =
    ((0,2,2,2,2),
     (2,1,1,1,2),
     (2,1,0,1,2),
     (2,1,0,1,2),
     (2,1,1,1,2),
     (2,2,2,2,2));

  Begin 
    bld := bld2;
  End;

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif