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

[Rilpack]

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

да.
в этом коде я ошибок не увидел.
Работает?

Нет, не работает. Ссылается на ошибку в этой строке

read(f,k);

Которая находится в

if OpenDialog1.Execute then
  begin
    try
      try
        assignfile(f,OpenDialog1.Filename);
        reset(f);
        readln(f,n);
        for kol:=1 to n do
          for row:=1 to n do
                read(f,k);

[Serge_Bliznykov]

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

Нет, не работает. Ссылается на ошибку в этой строке

какую именно ошибку?
при запуске проекта из IDE или при запуске EXE-шника?

запакуйте ваш txt файл в архив (zip/rar/7z) и приложите к сообщению на форум
(см. Загрузить файлы - Управление вложениями )

[Rilpack]

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

какую именно ошибку?
при запуске проекта из IDE или при запуске EXE-шника?

запакуйте ваш txt файл в архив (zip/rar/7z) и приложите к сообщению на форум
(см. Загрузить файлы - Управление вложениями )

Всё хорошо, это я там намудрил. Прости и спасибо вам огромное. Только когда в exe-шнике после выхода сообщения, что файл не корректен, всё равно добавляется на таблицу некоторые числа. Это можно как-то исправить?

[Serge_Bliznykov]

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

Это можно как-то исправить?

всё можно исправить.

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

олько когда в exe-шнике после выхода сообщения, что файл не корректен, всё равно добавляется на таблицу некоторые числа.

Покажите Ваш код и скриншот ошибки.

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

Прости и спасибо вам огромное.

Не за что!

[Rilpack]

Serge_Bliznykov

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

[Rilpack]

К примеру в файле находится такая матрица:

5
1 0 0 0 0 
0 1 0 0 0
0 1 йцу 0 0
23213ца

При загрузки, выходит сообщение, что файл не корректен и в таблице появляются кое-какие числа из этого файла.

Ещё раз кину код загрузки:

{---Кнопка "Загрузка"---}
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 kol:=1 to n do
          for row:=1 to n do
    {----------}
    StringGrid1.ColCount:=n+2;
    StringGrid1.RowCount:=n+1;
    row:=0;
    for kol:=1 to n do
    begin
      StringGrid1.Cells[kol,row]:='K(x'+IntToStr(kol)+')';
    end;
    StringGrid1.Cells[n+1,0]:='Св.члены';
    kol:=0;
    for row:=1 to n do
      StringGrid1.Cells[kol,row]:=IntToStr(row);
      begin
        StringGrid2.ColCount:=2;
        StringGrid2.RowCount:=n;
        for row:=0 to n do
        begin
          StringGrid2.Cells[kol,row]:='X'+IntToStr(row+1);
        end;
      end;
      StringGrid1.Options:=StringGrid1.Options+[goEditing];
    {----------}
    reset(f);
        readln(f,n);
            for kol:=1 to n do
      for row:=1 to n 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;

И файл самой матрицы:

[Serge_Bliznykov]

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

Как вывести свободные члены?

Вывести откуда и куда? Поясните.

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

если при нажатии из загрузки файлов был старый файл

И тут я не понял.
У Вас же OpenDialog1.Execute.
Если я не ошибаюсь, то там нельзя выбрать файл, которого уже нет.
Или Вы что имеете в виду?

ну, можете проверять файл перед тем, как открыть его: if FileExists(ПутьКФайлу) then

[Serge_Bliznykov]

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

readln(f,n);
        for kol:=1 to n do
          for row:=1 to n do
    {----------}
    StringGrid1.ColCount:=n+2;

мы по кругу ходим

readln(f,n);
        for kol:=1 to n do
          for row:=1 to n do
             Read(f, k);
    {----------}
    StringGrid1.ColCount:=n+2;

[Rilpack]

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

Вывести откуда и куда? Поясните.

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

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

И тут я не понял.
У Вас же OpenDialog1.Execute.

На фото

[Rilpack]

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

мы по кругу ходим

readln(f,n);
        for kol:=1 to n do
          for row:=1 to n do
             Read(f, k);
    {----------}
    StringGrid1.ColCount:=n+2;

Всё, я понял. Спасибо. Исправил.