Как заполнить stringgrid по принципу лото?

[-=Mafia=-]

Вопрос в заголовке

[evg_m]

а что такое принцип лото?

[-=Mafia=-]

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

а что такое принцип лото?

Билет с ячейками 3х9 в котором должны быть 15 случайных, не повторяющихся чисел в диапазоне от 1 до 90. В первом столбце числа от 1 до 9, во втором 10 до 19 и т.д.

[evg_m]

должны быть 15 случайных, не повторяющихся чисел в диапазоне от 1 до 90.

randomize;
for j:=1 to 90 do m[j]:=j;// заполняем числами по порядку
for j:=1 to 15 do begin // перемешиваем 
  k:=ramdom(90);
  t:=m[j]; m[j]:=m[k]; m[k]:=t;
end;
for j:=1 to 15 do begin//берем первые 15 из перемешанного
  if m[j]<10 then ......... // и расставляем
end;

это не совсем равновероятное. (см. темы тасование карт).

В первом столбце числа от 1 до 9

if m[j] <10 then begin line[1,k2]:=m[j]; k1:=k1+1; end
else if m[j]<20 then begin line[2,k2]:=m[j]; k2:=k2+1; end
else ..................;

[-=Mafia=-]

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

randomize;
for j:=1 to 90 do m[j]:=j;// заполняем числами по порядку
for j:=1 to 15 do begin // перемешиваем 
  k:=ramdom(90);
  t:=m[j]; m[j]:=m[k]; m[k]:=t;
end;
for j:=1 to 15 do begin//берем первые 15 из перемешанного
  if m[j]<10 then ......... // и расставляем
end;

это не совсем равновероятное. (см. темы тасование карт).

if m[j] <10 then begin line[1,k2]:=m[j]; k1:=k1+1; end
else if m[j]<20 then begin line[2,k2]:=m[j]; k2:=k2+1; end
else ..................;

Можно подробнее? Что то я не понял как это делается.

[evg_m]

берем массив на 90 элементов.

var m: array[1..90] of integer;

1.заполняем числами 1..90 по порядку (неповторяющиеся от 1 до 90).

2.перемешиваем элементы массива (эти числа) (в случайном порядке).
random(90) функция получения случайного числа в диапазоне 1..90

3.берем первые 15 элементов перемешанного массива.
(это будут наши 15 случайных неповторяющихся чисел от 1 до 90)
и расставляем в соответствии с требованиями.

Это алгоритм работы. код написан выше. что именно не понятно.

[-=Mafia=-]

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

берем массив на 90 элементов.

var m: array[1..90] of integer;

1.заполняем числами 1..90 по порядку (неповторяющиеся от 1 до 90).

2.перемешиваем элементы массива (эти числа) (в случайном порядке).
random(90) функция получения случайного числа в диапазоне 1..90

3.берем первые 15 элементов перемешанного массива.
(это будут наши 15 случайных неповторяющихся чисел от 1 до 90)
и расставляем в соответствии с требованиями.

Это алгоритм работы. код написан выше. что именно не понятно.

Не понятно как эти числа попадают в stringgrid

[evg_m]

Не понятно как эти числа попадают в stringgrid

а они туда пока и не попали.
надо дописать

if m[j]<10 then //что-то сделать чтобы попало в первый столбец
else if m[j]<20 then //во  второй 
//ну и так далее.