Генерация чисел "От" и "До"

[artemavd]

Как сгенерировать числа по-порядку от, например, 1000 до 2000, т.е. 1001, 1002....2000. И вывести полученное в StringGrid?

[DIgorevich]

for i:=1000 to 2000 do 
begin
  присваиваем чему надо i;
end;

[quit]

эээээ, циклом?

[artemavd]

Да, циклом. Нужно, чтобы получился столбец со значениями.

[quit]

var
  i: integer;
begin
  StringGrid1.RowCount := 1000;
  for i := 1001 to 2000 do
    StringGrid1.Cells[0,i-1001] := IntToStr(i);
end;

[artemavd]

А от 1 до 10 почему-то не генерит

[quit]

потому, что в цикле надо правильно указать индексы ячеек

var
  i: integer;
  o, d: integer;//от, до
begin
  o := 1;//задаем от
  d := 10;//задаем до
  StringGrid1.RowCount := d - o + 1;
  for i := o to d do
    StringGrid1.Cells[0,i-o] := IntToStr(i);
end;

[artemavd]

Спасибо! Теперь все правильно