Разделить строку данных на отдельные числа

[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;

[ArtGrek]

как минимум

StringGrid1.Cells[i,j] := s;

замени на

StringGrid1.Cells[i,j] := Copy(s,j*2,1); //j*2 на 100% не уверен, но вроди так

P.S. при условии что все числа будут однозначные

[juggle]

Заменено, но в этом случае у меня показывается 1 цифра в самой первой ячейке.
Если оставить просто j (без умножения на 2), по показываются 2 цифры - в верхней ячейку и ячейке под ней.
Нужно что-то еще придумать....

[mss]

> Нужно что-то еще придумать


Куда уж дальше придумывать, кулибин, если все уже придумано до нас ?)

Штудируй TStringList как Отче Наш - там все уже "придумано".

[ArtGrek]

procedure TForm1.Button1Click(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
      Readln(input, s);
      for j := 0 to n - 1 do
      begin
        StringGrid1.Cells[j,i] := Copy(s,j*2+1,1);
      end;
    end;
    CloseFile(input);
  end;
end;

P.S.1. при условии что все числа будут однозначные
P.S.2. не надо 2 раза считывать с фаила

[juggle]

Да, получилось!!! СПАСИБО ОГРОМНОЕ!!! Ты супер МОЗГ!