1:
2:
3:
4:
5:
6:
7:

for x := 1 to 30 do
  for y := 1 to 30 do
  begin
     "zeichenbefehl" map[x+oben, y+links]
  end;

dxdraw.flip;                    

1:
2:
3:
4:

var daten: array[1..200] of integer;
....

daten[0] := 1;  {dem Kettenglied Nr. 0 wird ein Wert zugewisen. In dem Fall ein Integerwert, weil das array so definiert worden ist}                    

1:
2:
3:
4:
5:

var daten: array[1..200,1..200] of Integer;

...

daten[0,5] := 1; {dem Kettengewebeglied x=0 und y = 0 (wie bei einer Tabelle) wird ein Integerwert zugeordnet}                    

1:
2:
3:
4:
5:
6:

for x := 1 to 10 do 
  for y := 1 to 6 do 
  begin 
     bildliste.items[map[x,y]].draw(dx.surface,x*50,y*50,0);{*50 wegen der Pixelgröße der Bilder}
  end; 
dx.flip;                    

1:
2:

var
   map: array[0..10, 0..10] of integer;                    

1:
2:
3:
4:
5:

for mapx := 0 to 10 do
   for mapy := 0 to 10 do
   begin
      BodenTex.Items[map[mapx,mapy]].draw(dx.surface,mapx*50,mapy*50,0);{*50 wegen der Pixelgröße der Bilder}
   end;                    

1:
2:
3:

010
010
010                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

map[1,1] := 0;
map[1,2] := 0;
map[1,3] := 0;

map[2,1] := 1;
map[2,2] := 1;
map[2,3] := 1;

map[3,1] := 0;
map[3,2] := 0;
map[3,3] := 0;                    

1:
2:
3:
4:
5:
6:

Ereignis inclick bei grid

begin
   map[grid.row+1,grid.col+1] := strtoint(eingabe.text); {array wird gefüllt}
  grid.cells[grid.row+1,grid.col+1]:= strtoint(eingabe.text); {grid wird gefüllt}
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Speichern des Arrays
procedure save;
var dat: file of tmap; {Typ tmap = array[1..10,1..10] of integer;}
begin
  assignfile(dat,'map.dat');
  rewrite(dat);
  write(dat,map);
  closefile(dat);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Laden des Arrays
procedure save;
var dat: file of tmap; {Typ tmap = array[1..10,1..10] of integer;}
begin
  assignfile(dat,'map.dat');
  reset(dat);
  read(dat,map);
  closefile(dat);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const
  TYP_WIESE = 0;
  TYP_STRASSE = 1;
[...]
map[1,1] := TYP_WIESE;
map[1,2] := TYP_WIESE;
map[1,3] := TYP_WIESE;

map[2,1] := TYP_STRASSE;
map[2,2] := TYP_STRASSE;
map[2,3] := TYP_STRASSE;

map[3,1] := TYP_WIESE;
map[3,2] := TYP_WIESE;
map[3,3] := TYP_WIESE;                    

1:
2:
3:
4:

  TMap = record
     visible, enabled:Bool;
      Typ, Tex: Integer; 
   end;                    

1:
2:
3:
4:
5:
6:

begin
  inc(scrollx)
  if scrollx >= 40 then
    scrollx := 0;

end;                    

1:

BodenTex.Items[map[mapx,mapy]].draw(dx.surface,mapx*50+scrollx,mapy*50+scrolly,0);