1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

const
  gcsp= 31;
  gcze= 23;
  gcelmentmenge= 3;
type
  TElemente= (Stein,Leiter,Tuer,leer,item);
  TElementNamenFeld = Array [TElemente] OF STRING;
  TMap = Array [0..gcsp,0..gcze] OF TElemente;
  TMapFile = File OF TMap;
  TBilderFeld= ARRAY [TElemente] OF TBitMap;
const
  gcElementName : TElementNamenFeld = ('Stein','Leiter','Tür','Leer','Item');
  gcmapext = 'jmp';
  gcbmpext = 'bmp';
var
  gvBild: TBilderFeld;
  gvMap: TMap;
  gvMapDatei : TMapFile;
  gvMapDateiName : String;
  gvaktElement : TElemente;
//====================================================================================

PROCEDURE TForm1.Button_SpeichernClick(Sender: TObject);
BEGIN
  IF Form1.SaveDialog1.Execute THEN
    gvmapDateiName := Form1.SaveDialog1.FileName;
  AssignFile(gvMapDatei,gvMapDateiName);
  ReWrite(gvMapDatei);
  Write(gvMapDatei,gvMap);
  CloseFile(gvMapDatei);
END;					

1:
2:
3:
4:

  AssignFile(gvMapDatei,gvMapDateiName);
  Reset(gvMapDatei);
  Read(gvMapDatei,gvMap);
  CloseFile(gvMapDatei);					

1:
2:
3:
4:

  AssignFile(gvMapDatei,gvMapDateiName);
  ReSet(gvMapDatei);
  Read(gvMapDatei,gvMap);
  CloseFile(gvMapDatei);					

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

PROCEDURE TForm1.Button_LadenClick(Sender: TObject);
VAR
  s,z : BYTE;
  rechteck:TRect;
BEGIN
  IF Form1.OpenDialog1.Execute THEN
    gvMapDateiName := Form1.OpenDialog1.FileName;
  AssignFile(gvMapDatei,gvMapDateiName);
  ReSet(gvMapDatei);
  Read(gvMapDatei,gvMap);
  CloseFile(gvMapDatei);
  FOR s := 0 TO 31 DO BEGIN
    FOR z := 0 TO 23 DO BEGIN
      rechteck:=Form1.DrawGrid1.CellRect(s,z);
      Form1.DrawGrid1.Canvas.Draw(rechteck.Left,rechteck.Top,gvbild[gvMap[s,z]]);
    END;
  END;
END;					

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

VAR
  s,z : BYTE;
  rechteck:TRect;
BEGIN
  gvMapDateiName := 'guteMap'+'.'+gcmapext;
  AssignFile(gvMapDatei,gvMapDateiName);
  ReSet(gvMapDatei);
  Read(gvMapDatei,gvMap);
  CloseFile(gvMapDatei);
  FOR s := 0 TO 31 DO BEGIN
    FOR z := 0 TO 23 DO BEGIN
      rechteck:=Form1.DrawGrid1.CellRect(s,z);
      Form1.DrawGrid1.Canvas.Draw(rechteck.Left,rechteck.Top,gvbild[gvMap[s,z]]);
    END;
  END;
END;					

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

FOR s := 0 TO 31 DO BEGIN
    FOR z := 0 TO 23 DO BEGIN
      rechteck.Left:=s-1;
      rechteck.top:=z-1;
      Form1.Canvas.Draw(rechteck.Left,rechteck.Top,gvbild[gvMap[s,z]]);
    END;					

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

FOR s := 0 TO 31 DO BEGIN
    FOR z := 0 TO 23 DO BEGIN
      rechteck.Left:=s-1;
      rechteck.top:=z-1;
      myBitmap.Canvas.Draw(rechteck.Left,rechteck.Top,gvbild[gvMap[s,z]]);
    END;