Надо дополнить плз...

[Droid]

(1 до 10) первые 5 (1..5) столбцов
(1 до 11) воторые 5 (6..10)столбцов
(1 до 12) третие 5 (11..15)столбцов
и так до числа такого которое ввел пользователь!
мне надо вот так.

[mihali4]

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

for i:=0 to stringgrid.cols-1 do //тут наверное colcount ?
for k:=0 to stringgrid.rows-1 do
begin
if i mod 5=0 then
cr:=Cr+1;
stringgrid1.Cells[i,k]:=inttostr(random(10)+1+cr);
end;

он считает но не правильно (

Немного подправьте:

for k:=0 to stringgrid.rowcount-1 do 
begin
cr:=10;
Randomize;
for i:=0 to stringgrid.colcount-1 do
begin 
   if i mod 5=0 then 
     cr:=Cr+1;   
   stringgrid1.Cells[i,k]:=inttostr(random(cr)+1);      
end; 
end;

[Droid]

Спасибо всем огромное ) очень блогодарен )