Array als Datei speichern

[H4ndy]

Das geht relativ einfach über eine TStringList und FOR-Schleifen:

Delphi-Quellcode:

var map: array [1..256] of byte;
...
procedure Thaupt.Save(Sender: TObject);
var StrList: TStrings;
    i: integer;
begin
  if SaveDialog1.Execute then begin
    StrList := NIL;
    try
      StrList := TStringList.Create;
      for i:=1 to 256 do begin
        StrList.Add(IntToStr(map[i]));
      end;
      StrList.SaveToFile(SaveDialog1.FileName);
    finally
      StrList.Free;
    end;
  end;
end;

procedure Thaupt.Open(Sender: TObject);
var StrList: TStrings;
    i: integer;
begin
  if OpenDialog1.Execute then begin
    StrList := NIL;
    try
      StrList := TStringList.Create;
      StrList.LoadFromFile(OpenDialog1.FileName);
      for i:=1 to 256 do begin
        map[i] := StrToInt(StrList[i]);
      end;
    finally
      StrList.Free;
    end;
  end;

Sollte auch einfach auf andere Typen anwendbar sein.