[Brain Fucker]

Сообщение от angvelem

Правильно надеялись, но для начала эти величины должны откуда то в этом файле взяться. То есть их туда нужно предварительно записать. Хотя бы так:

Код:

  AssignFile(F, 'Valuesmatrix.txt');
  try
    Rewrite(F);
    WriteLn(F, GrafVal.ColCount);
    WriteLn(F, GrafVal.RowCount);
    for Row := 0 to GrafVal.RowCount - 1 do
      for Col := 0 to GrafVal.ColCount - 1 do
        WriteLn(F, GrafVal.cells[Col, Row]);
  finally
    CloseFile(F);
  end;

Спасибо, действительно глупая ошибка. Следующая, наверное, не умнее, но я не вижу её в упор.
При чтении из файла заполняет только первый ряд.

Код:

begin
  assignfile(f, 'Valuesmatrix.txt');
  reset(f);
  readln(f, temp);
  GrafVal.rowcount := temp;
  readln(f, temp);
  GrafVal.colcount := temp;
  for i := 1 to GrafVal.colcount -1 do
    for j := 1 to GrafVal.rowcount -1 do
      begin
      readln(F, tempstr);
      GrafVal.cells[i, j] := tempstr;
    end;

  closefile(f);
end;