Есть программа, но она делает немножко не то (загрузчик в StringGrid)

@Jinny · Регистрация: 20.05.2013

Author24 — интернет-сервис помощи студентам

Добрый день. У меня программа по решению СЛАУ методом Гаусса... Есть наброски программы, но там нужно каждое число в ячейке вводить с новой строки. Не могу разобраться, как мне из файла загрузить в StringGrid значения, если их вводить системой уравнений, т.е. (пример)
3*х(1)+56*х(2)-48*х(3)=55
4*х(1)-88*х(2)-132*х(3)=-232
-235*х(1)+4546*х(2)+77*х(3)=0

Прога:

Delphi

procedure TForm1.N2Click(Sender: TObject);
var
  f:TextFile;
  s:string;
  i,j:integer;
begin
if opendialog1.Execute then
  AssignFile(f,opendialog1.FileName);
  Reset(f);
  ReadLn(f,s);
  try
     StringGrid1.ColCount:=strtoint(s);
     StringGrid1.RowCount:=strtoint(s);
     StringGrid2.RowCount:=strtoint(s);
     except
    ShowMessage('Неверный формат файла. Действие отменено.');
              CloseFile(F);
               Exit;
  end;
  for i:=0 to StringGrid1.ColCount-1
    do
      begin
        for j:=0 to StringGrid1.RowCount-1
          do
            begin
            Readln(f,s);  // +'x('+IntToStr(i+1)+')'
              StringGrid1.Cells[i,j]:=s;
            end;
      end;

Пож, ребят, помогите...

	20.05.2013, 19:54