Hilfe mit Dateien

[KrasserChecker]

Hi, Du solltest es dir einfach machen und über eine Stringliste gehen.
Dort kannst Du erst alle Zahlen eintragen (oder auch aus einer Datei laden) und dann einfach auslesen.
Dadurch sparst Du dir auch das ganze Dateihandling.

Speichern:

Delphi-Quellcode:

var SL: TStringList; Zahl : array [1..9, 1..9] of Integer;

begin
  SL := TStringList.Create;
  try
    for x := 1 to 9 do
      for y := 1 to 9 do
        SL.Add(IntToStr(Zahl[x, y]));
    
    SL.SaveToFile('c:\temp\test.txt');
  finally
    SL.Free;
  end;
end;

Laden:

Delphi-Quellcode:

var SL: TStringList; Zahl : array [1..9, 1..9] of Integer; Index: Integer;

begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('c:\temp\test.txt');
    Index := 0;

    for x := 1 to 9 do
      for y := 1 to 9 do
      begin
        Zahl[x, y] := StrToInt(SL[Index]);
        inc(Index);
      end;
  finally
    SL.Free;
  end;
end;