[Stacy McKritsky]

Здравствуйте! Есть программа для заполнения StringGrid из файла. Она заполняет два столбика StringGrid подстроками (количество столбиков указано цифрой 2), в файле подстроки в строках разделены пробелами. Как изменить программу так, чтобы она заполняла j столбиков? То есть чтоб j была переменная и цикл вывода в ячейки от нее зависел. Помогите, пожалуйста!

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile('test.txt');
  StringGrid1.RowСount := L.Count;
  StringGrid1.ColCount := 2;
  For I := 0 To L.Count-1 Do
    Begin
       StringGrid1.Cells[0,i] := Copy(L[i],1,Pos(' ',L[i])-1);
       StringGrid1.Cells[1,i] := Copy(L[i],Pos(' ',L[i])+1,Length(L[i]));
    End;
  L.Free;
end;

[lmikle]

Нужен еще один цикл внутри существующего, который будет "выкусывать" подстроки. Видимо, While с ручным увеличением счетчика. Каждая итерация - это новая колонка грида.