Помогите разобраться!

[Holodok]

Добрый день!
Помогите, пожалуйста - вот такой вот код:
procedure TForm1.N2Click(Sender: TObject);
Var a,b:integer;
i:integer;
y:array[0..50] of double;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);

for i := a to b do
begin
y[i]:=0.0095*48*sqrt(i)-0.0035;
Form2.StringGrid1.Cells[0,i]:=floattostr(y[i]);
end;
end;

При компиляции выдается ошибка:
Project xxxx raised exception class yyyyy with message 'zzzzzz'.
Process stopped. Use Step or Run to continue.

Подскажите, что сделано не так?

[_Dmitry]

При компиляции ошибки быть не должно.
А при работе программы скорее всего в Edit2 вводите число больше 50, а массив у вас [0..50].
Или же в эдитах не цифры.

[Holodok]

большое спасибо!
затупил - действительно, вводил числа больше 50...

[Holodok]

Сорри за безграмотность - не заполняется таблица... Исправил Form2.StringGrid1.Cells[0,i]:=floattostr(y[i]); на Form2.StringGrid1.Cells[0,j]:=floattostr(y[i]);
заполняется только одна ячейка...
Знаю, что где-то ошибся, но не могу сообразить где. Не подскажете?

[Карась]

над просто расставить брекпоинты и посмотреть.
Судя по всему j осаётся неизменной... Проще говоря если раньше переменная i была связанна с циклом For, то переменая j никак несвязанна с ним.

for i := a to b do
begin

y[i]:=0.0095*48*sqrt(i)-0.0035;

Form2.StringGrid1.Cells[0,j]:=floattostr(y[i]);

end;

[Holodok]

Действительно...Большое спасибо.
Исправил:
Form2.StringGrid1.Cells[0,i]:=floattostr(i);
Form2.StringGrid1.Cells[1,i]:=floattostr(y[i]);

Работает только если цикл сделать, к примеру: for i := 0 to 10 do
Если запись for i := a to b do , то снова ничего не происходит...Нужен цикл именно от a до b. Может быть у меня это как-то некорректно описывается?

[Карась]

Всё должно работать. Поставьте на какаюнибудь строку цикла брекпоинт и проверьте сколько раз прокрутится цикл.

[eoln]

Если не надо оставлять пустые строки вначале, то лучше сделать так

Var a,b:integer;
i, k:integer;
y:array[0..50] of double;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
k:=0;
Form2.StringGrid1.ColCount:=b-a+1; // это если верхняя строчка как заголовок
for i := a to b do
begin
y[k]:=0.0095*48*sqrt(i)-0.0035;
inc(k);
Form2.StringGrid1.Cells[0,k]:=floattostr(y[k]);
end;
end;

Вводить можно любые числа, но так чтобы b-a<=51 было

[Holodok]

eoln, ваш вариант почему-то вообще не работает...

[eoln]

Извиняюсь - писал прямо в форуме, строчки попутал.

procedure TForm1.Button1Click(Sender: TObject);
Var a,b:integer;   
i, k:integer;
y:array[0..50] of double;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);   
k:=0;
Form2.StringGrid1.RowCount:=b-a+1; // это если верхняя строчка как заголовок
for i := a to b do
begin
y[k]:=0.0095*48*sqrt(i)-0.0035;
Form2.StringGrid1.Cells[0,k]:=floattostr(y[k]);
inc(k);
end;   
end;

Вот проверил - это работает