Mehrdimensionale Arrays mit Werten beladen

[messie]

Ergänzung: Deine Deklarationen sind durcheinander. Du deklarierst einen Typ und willst den dann als Konstante beladen. Das geht mit wie schon gesagt mit globalen consts und vars

Delphi-Quellcode:

const
meinarray : array[0..9,0..9] of integer =
   ((1,2,1,1,1,1,1,1,1,1),
   (1,0,0,0,0,0,0,0,0,1),
   (1,1,1,1,1,1,1,1,1,1),
   (1,0,0,0,0,0,0,0,0,1),
   (1,0,1,1,1,1,1,1,1,1),
   (1,0,0,0,0,0,0,0,0,1),
   (1,0,1,1,1,1,1,1,1,1),
   (1,0,1,1,1,1,1,1,1,1),
   (1,0,0,0,0,0,0,0,0,1),
   (1,1,1,1,1,1,1,1,0,1)
  );

Kompiliert, aber nicht geprüft.

Grüße, Messie