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

<file version="1.0">
<level id="1" content="******************************" />
<level id="2" content="******************************" />
<level id="3" content="******************************" />
<level id="4" content="******************************" />
<level id="5" content="******************************" />
</file>					

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:

Type
  TLevel = record
    LevelName : string[20];
    Spielfeld : array[1..15] of integer;
    //evtl noch zusätzliche definitionen
  end;

var
  LevelDA : array of TLevel; //DatenArray aller levels

procedure AddLevel(Level : TLevel); 
var
  l : integer;
begin
  l := length(LevelDA);
  setlength(LevelDA,l + 1);
  LevelDA[l] := Level;
end;

procedure SaveLevels;
var
  fw : file of TLevel;
  i,l : integer;
begin
  l := length(LevelDA);
  assignfile(fw,'Levels1.lev');
  try
    rewrite(fw);
    for i := 0 to l - 1 do
      write(fw,LevelDA[i]);
  finally
    CloseFile(fw);
  end;
end;

procedure LoadRang;
var
  fw : file of TLevel;
  i : integer;
begin
  if FileExists('Levels1.lev') then
    begin
    assignfile(fw,'Levels1.lev');
      try
        reset(fw);
        i := 0;
        while not Eof(fw) do
          begin
          SetLength(LevelDA,i + 1);
          Read(fw,LevelDA[i]);
          i := i + 1;
          end;
      finally
        CloseFile(fw);
      end;
    end
  else
    ShowMessage('Levels1.lev' nicht gefunden');
end;					

1:

(level-1)*levelsize					

1:

read(@buf,levelsize)					

1:

array[1..levelsize] of byte