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

Sub LoadMaps()
    Dim FileName As String
    Dim I As Integer
    Dim f As Integer

    Call CheckMaps

    For I = 1 To MAX_MAPS
        temp = I / MAX_MAPS * 100
        Call SetStatus("Loading maps... " & temp & "%")
        FileName = App.Path & "\maps\map" & I & ".dat"

        f = FreeFile
        Open FileName For Binary As #f
        Get #f, , Map(I)
        Close #f

    Next I

End Sub                    

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

var
  Mapfile: TFileStream;
begin
  MapFile := TFileStream.Create(Datei, fmOpenRead + fmShareDenyWrite);
  try
    MapFile.read(Map, SizeOf(Map));
  finally
    FreeAndNil(MapFile);
  end;                    

1:

amis Map                               

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

---------------------------
Error
---------------------------
Runtime error 216 at 0040383E
---------------------------
OK   
---------------------------                    

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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TTile = packed record
    Ground : LongInt;
    Mask : LongInt;
    Anim : LongInt;
    Mask2 : LongInt;
    M2Anim : LongInt;
    Fringe : LongInt;
    FAnim : LongInt;
    Fringe2 : LongInt;
    F2Anim : LongInt;
    Type1 : Byte;
    Data1 : LongInt;
    Data2 : LongInt;
    Data3 : LongInt;
    String1 : ShortString;
    String2 : ShortString;
    String3 : ShortString;
    Light : LongInt;
    GroundSet : Byte;
    MaskSet : Byte;
    AnimSet : Byte;
    Mask2Set : Byte;
    M2AnimSet : Byte;
    FringeSet : Byte;
    FAnimSet : Byte;
    Fringe2Set : Byte;
    F2AnimSet : Byte;
  end;

  TMap = packed record
    Name : String[20];
    Revision : Integer;
    Moral : Byte;
    Up : Integer;
    Down : Integer;
    Left : Integer;
    Right : Integer;
    music : ShortString;
    BootMap : Integer;
    BootX : Byte;
    BootY : Byte;
    Shop : Integer;
    Indoors : Byte;
    Tile : array[0..30] of array[0..30] of TTile;
    NPC : array[1..15] of Integer;
    SpawnX : array[1..15] of Byte;
    SpawnY : array[1..15] of Byte;
    Owner : String;
    Scrolling : Byte;
    Weather : Integer;
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Map : TMap;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Mapfile: TFileStream;
begin
  MapFile := TFileStream.Create('C:\Users\Kami\Desktop\Server\Maps\map1.dat', fmOpenRead + fmShareDenyWrite);
  try
    MapFile.read(Map, SizeOf(Map));
  finally
    FreeAndNil(MapFile);
  end;
  Memo1.Lines.Add(Map.Name);
  Memo1.Lines.Add(IntToStr(Map.Revision));
end;

end.