Suche passenden Code um eine ''Map'' abzuspeichern!!

[Khabarakh]

Hier im Forum lässt sichs besser schreiben .

Delphi-Quellcode:

var Datei: File of TTile;
    i, ii: Integer;
begin
  if SaveDialog1.Execute then
  begin
    AssignFile(Datei, SaveDialog1.FileName);
    try
      Rewrite(Datei);
      for i := 0 to 100 do  
        for ii := 0 to 100 do
          Write(Datei, Feld[i,ii]);
    finally
      CloseFile(Datei);
    end;
  end;

Laden wirst du hoffentlich selbst hinbekommen.

[edit]Oder auch nicht...

Delphi-Quellcode:

var Datei: File of TTile;
    i, ii: Integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(Datei, OpenDialog1.FileName);
    try
      Reset(Datei);
      for i := 0 to 100 do  
        for ii := 0 to 100 do
          Read(Datei, Feld[i,ii]);
    finally
      CloseFile(Datei);
    end;
  end;