stringGrid и listbox

[xbron]

Имеется Listbox и StringGrid, в Listbox'е в столбик записаны числа,нужно перенести их в StringGrid


for i:=1 to listbox1.Items.Count-1 do
for j:=1 to 11 do
stringgrid1.Cells[i,j]:=listbox1.Items.Strings[i-1];

Этот код почему-то не работает, он полностью записывает и заполняет всю таблицу в StringGrid из Listbox первые 11 чисел

[Аватар]

12-е вы же сами не заполняете, тогда уж цикл до listbox1.Items.Count

[xbron]

Не суть, я про то , что вся таблица, которая в stringgrid 11х11 заполняется первыми 11 числами из Listbox, а в Listbox 121 чисел

[Аватар]

А в колонку какую тогда присвоение идет в stringgrid1.Cells[i,j]:=listbox1.Items.Strings[i-1]; если i до 121? Грид просто молча проглатывает эту бяку. Тогда в таком духе

for i:=0 to listbox1.Items.Count-1 do
  for j:=0 to 10 do
    stringgrid1.Cells[i mod 11,j]:=listbox1.Items.Strings[i];

[xbron]

Не получилось всё равно, вот что получается

[Аватар]

У грида то 12 колонок, а говоришь 11. Да и мой предыдущий вариант не в дугу

for i:=1 to 11 do
  for j:=1 to 11 do
    stringgrid1.Cells[i,j]:=listbox1.Items.Strings[(i-1)*11+j-1];

[xbron]

Заработало! ) А можете прокомментировать последний код, где Strings[(i-1)*11+j-1] ?
Спасибо за помощь!

[Аватар]

А что там комментировать - вычисляю индекс в списке в зависимости от номера колонки и столбца. Вроде все прозрачно

PS

Можно вообще одним циклом, и будет правильней, как минимум в случае, если вдруг в списке меньше, чем 121 строка

for i:=0 to listbox1.Items.Count-1 do
  stringgrid1.Cells[(i mod 11)+1,(i div 11)+1]:=listbox1.Items.Strings[i];

[meshkale]

А как сделать чтобы из ListBox с мульти выбором в одну ячейку засовывалось несколько пунктов каждый на новой строке?