Array speichern

[waseo]

Hallo!

Leider hast Du nicht geschrieben, welchen Datentyp Du für Dein Array verwendest. Ich würde eine StringList empfehlen. Hier mal ein kleines Beispiel mit einem 3 x 3 Feldern grossen Integer-Array:

Delphi-Quellcode:

type
  IntegerArray = Array[1..3,1..3] of integer;

procedure SpeichereArray(AArray: IntegerArray; FileName: String);
var
  i, j: integer;
  slDaten: TStringList;
begin
  slDaten := TStringList.Create;
  for i := 1 to 3 do
    for j := 1 to 3 do
      slDaten.Add(IntToStr(AArray[i, j]));
  slDaten.SaveToFile(FileName);
  slDaten.Free;
end;

procedure LadeArray(AArray: IntegerArray; FileName: String);
var
  i, j, Count: integer;
  slDaten: TStringList;
begin
  slDaten := TStringList.Create;
  slDaten.LoadFromFile(FileName);
  Count := 0;
  for i := 1 to 3 do
    for j := 1 to 3 do
    begin
      AArray[i, j] := StrToInt(slDaten[Count]);
      inc(Count);
    end;
  slDaten.Free;
end;

Vorher noch den Typ an eine Variable binden (z. B. var MeinArray: TIntegerArray) und die Zahlen ins Array schreiben. Dann kann man die Prozeduren so aufrufen: SpeichereArray(MeinArray, 'C:\array.txt')) bzw. LadeArray(MeinArray, 'C:\array.txt'))