[juggle]

Народ, подскажите, пожалуйста, как мне реализовать заполнение данных из txt фаила в SrtingGrid.
Фаил заполнен так:
2 3 4
5 6 7
.....
Когда я пытаюсь подгрузить такой фаил, то у меня заполняется первый столбец данными всей строки, а мне надо чтобы каждое число в своей ячейке было. Что нужно поменять?

Код:

//DownLoad the file
procedure TForm1.Button2Click(Sender: TObject);
 
  var
  i,j,m,n:integer;
  s:string;
  input:TextFile;
 
begin
 
if OpenDialog1.Execute then
      begin
 
    AssignFile(input, OpenDialog1.FileName);
    Reset(input);
  
     m:=strtoint(Edit1.Text);
     n:=strtoint(Edit2.Text);
 
    for i := 0 to m - 1 do
    begin
       for j := 0 to n - 1 do
       begin
         Readln(input, s);
         StringGrid1.Cells[i,j] := s;
       end;
       Readln(input);
    end;
       CloseFile(input);
  end;

[GriLab]

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

Народ, подскажите, пожалуйста, как мне реализовать заполнение данных из txt фаила в SrtingGrid.
Фаил заполнен так:
2 3 4
5 6 7
.....
Когда я пытаюсь подгрузить такой фаил, то у меня заполняется первый столбец данными всей строки, а мне надо чтобы каждое число в своей ячейке было. Что нужно поменять?

Код:

//DownLoad the file
procedure TForm1.Button2Click(Sender: TObject);
 
  var
  i,j,m,n:integer;
  s:string;
  input:TextFile;
 
begin
 
if OpenDialog1.Execute then
      begin
 
    AssignFile(input, OpenDialog1.FileName);
    Reset(input);
  
     m:=strtoint(Edit1.Text);
     n:=strtoint(Edit2.Text);
 
    for i := 0 to m - 1 do
    begin
       for j := 0 to n - 1 do
       begin
         Readln(input, s);
         StringGrid1.Cells[i,j] := s;
       end;
       Readln(input);
    end;
       CloseFile(input);
  end;

Я бы это делал по другому

Код:

    
for i := 0 to m - 1 do
begin
  for j := 0 to n - 1 do
  begin
    Read(input, s);
    StringGrid1.Cells[i,j] := s;
  end;
end;

[juggle]

В этом случае у меня считывается только первая строка и заполняется только первая верхняя ячейка.
Нужны еще идеи

[Konrad]

Структура такая:
2 3 4
5 6 7
.....

и не иначе?

Тоесть не может быть?:
23 3 4
55 56 7 6 7
3
45 54 65

Просто как вопрос задаш - такой и ответ получишь.

[juggle]

Дана матрица m x n, т.е. во всех строках одинаковое количество цифр (m цифр), со стобцами аналогично.
Цифры могут быть как одно-, так и двузначиными, но все положительные!)

m и n задаются мною через ГУИ (Edit поля) и именно столько значений я хочу видеть в итоге (а не столько сколько есть в фаиле).

[Konrad]

числа от 0 до 9 записываются 0,1,2 или 00,01,02,03 ?