Array in externe Datei ein- und auslesen

[idontwantaname]

Ganz einfach:

Delphi-Quellcode:

type
  TMyArray = array[1..32000] of Integer;

procedure Speichern;
var
  myArray: TMyArray;
  f: file of TMyArray;
begin
  // Array befüllen
    {...}

  // Array abspeichern
    AssignFile(f, 'C:\test.xyz');
    ReWrite(f);
    Write(f, myArray);
    CloseFile(f);
end;

procedure Laden;
var
  myArray: TMyArray;
  f: file of TMyArray;
begin
  // Array laden
    AssignFile(f, 'C:\test.xyz');
    Reset(f);
    Read(f, myArray);
    CloseFile(f);

  // irgendwas mit dem Array machen
    {...}
end;