Проблема с загрузкой файла в StringGrid (Delphi 7)

[Serge_Bliznykov]

по поводу существования файла.
добавьте такую опцию в OpenDialog
opendialog.png

[Serge_Bliznykov]

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

Из файла в таблицу

так

procedure TForm1.N4Click(Sender: TObject);
var f: textfile;
  k, n, kol, row: integer;
begin
  if OpenDialog1.Execute then
  begin
    try
      try
        assignfile(f, OpenDialog1.Filename);
        reset(f);
        readln(f, n);
        for row := 1 to n do
          for kol := 1 to n + 1 do
            Read(f, k);
    {----------}
        StringGrid1.ColCount := n + 2;
        StringGrid1.RowCount := n + 1;
        StringGrid2.ColCount := 2;
        StringGrid2.RowCount := n;
        StringGrid2.FixedRows := 0;
        StringGrid2.FixedCols := 1;
        for kol := 1 to n do
          StringGrid1.Cells[kol, 0] := 'K(x' + IntToStr(kol) + ')';
        StringGrid1.Cells[n + 1, 0] := 'Св.члены';
        for row := 1 to n do
          StringGrid1.Cells[0, row] := IntToStr(row);
        for row := 0 to n do
          StringGrid2.Cells[0, row] := 'X' + IntToStr(row + 1);
        StringGrid1.Options := StringGrid1.Options + [goEditing];
    {----------}
        reset(f);
        readln(f, n);
        for row := 1 to n do
          for kol := 1 to n + 1 do
          begin
            read(f, k);
            StringGrid1.Cells[kol, row] := IntToStr(k);
          end;
      except
        Application.MessageBox('Файл не корректен', 'Ошибка', MB_OK or MB_ICONERROR);
        Exit;
      end;
    finally
      closefile(f);
    end;
  end;
end;

[Rilpack]

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

так

Файл загружается, но свободные члены находятся ниже, а надо, чтобы появлялись под соответствующим столбцом.

Размерность я поставил шесть, чтобы показать вам, где этот столбец появляется. А так, при загрузке, загружается матрица с пустым последним столбцом.

[Аватар]

StringGrid1.Cells[kol, row] := IntToStr(k);
if row=n then StringGrid1.Cells[n+1, kol] := IntToStr(k)
         else StringGrid1.Cells[kol, row] := IntToStr(k);

[Serge_Bliznykov]

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

А так, при загрузке, загружается матрица с пустым последним столбцом.

возьмите обновлённый код из пост #22

[Rilpack]

Всё, вопросов больше нет. Спасибо вам огромное. Всё работает прекрасно. Не знаю, чтобы я без вас делал!

[Serge_Bliznykov]

Пожалуйста.
Успехов!