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

[Droid]

st:=strtoint(Edit1.Text);
str:=strtoint(Edit2.text);
for k:=1 to str do
for l:=1 to st do
begin
for y:=1 to st do
fun:=y div 5;
//for ot:=1 to fun do
stringgrid1.Cells[l,k]:=inttostr(random(10)+1);
end;

мне надо сделать так чтобы у меня каждые 5 столбцов прибавлял к рандому по 1 (т.е. от 1 до 5 рандом числа от 1 до 10, с 6 по 10 числа с 1 по 11 итд). чет написал а сообразить дальше олгаритм не могу (

[Stilet]

Ну судя из кода:

for y:=1 to st do begin
 fun:=y div 5;
 for ot:=1 to str do
  stringgrid1.Cells[y,ot]:=inttostr(random(10)+fun);
end;

[Droid]

st:=strtoint(Edit1.Text); - число столбцов стрингрида
str:=strtoint(Edit2.text);- число строк стрингрида \

Stilet чет ошибку выдает.

[Stilet]

Дык ясно че. Компилятьр то любит ошибки выдавать, особенно секретные.
Проверь количество столбцев и строк.
типа st:=StringGrid.cols;
str:=stringgrid.rows;

[Droid]

чет я тебя не понимаю (я уже неделю пытаюсь и постоянно что не пишу всегда ошибки (

[Stilet]

for i:=0 to stringgrid.cols-1 do 
 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)+cr);   
 end;

Так пойдет?

[Droid]

ща проверю )

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

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

[Stilet]

тут наверное colcount ?

Совершенно верно.

[Droid]

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