Delphi: ошибка - типы данных

[Sianessa]

Размерность массива задаётся произвольно, точнее - количество столбцов - всегда 1, а количество строк задаётся пользователем с клавиатуры... =__=
Щас поищу инфу про SetLenght - не доводилось ранее этим пользоваться... Количество строк во всех гридах равное, да.

[Roof]

имей ввиду, что запись:

h[i] = StrToInt(StringGrid2.Cells[i,0]);

означает i-ый элемент массива равен значению в i-ом столбце и нулевой строке StringGrid! В этом компоненте индекс столбца указывается первым!
http://www.delphibasics.ru/SetLength.php - тут про SetLength

[Sianessa]

Поменяла местами, написала этот SetLenght, только всё равно то же самое:
"0,65 is not a valid integer value" ну в зависимости от расчётов он разные цифры там пишет...

begin
u:=0;
SetLength(k, n);
SetLength(h, n);
for i := 1 to n do
  begin
    k[i]:=StrToInt(StringGrid1.Cells[0,i]);
    h[i]:=StrToInt(StringGrid2.Cells[0,i]);
  end;

for i:=0 to n do
begin
u:=u+(k[i]*h[i]);

[Roof]

индексация элементов с нуля. Значит цикл

for i := 0 to n - 1

n - значение присвой до использования. Полагаю будет так:

n := StringGrid1.RowCount

Нну и в StringGrid значения должны быть соответсвующие для преобразования в Integer.
и полностью код процедуры скинь, с исправлениями.

[Sianessa]

Roof всё равно ту же ошибку выдаёт

[Roof]

код процедуры полностью сюда. И в StringGrid должны быть значение типа
1
5
6
9
1587
но без всяких знаков и дробных разделителей.

[Sianessa]

В том то и дело, что у мен Рандомайз на десятичные числа, такие как 0,25 и т.д.
Надо чтоб работал.

Вот код исправленный:

procedure TForm1.Button3Click(Sender: TObject);
var
u :integer;
i:integer;
k:array of integer;
h:array of integer;


begin
n:= StringGrid1.RowCount;
u:=0;
SetLength(k, n);
SetLength(h, n);
for i := 0 to n-1 do
  begin
    k[i]:=StrToInt(StringGrid1.Cells[0,i]);
    h[i]:=StrToInt(StringGrid2.Cells[0,i]);
  end;

for i:=0 to n do
begin
u:=u+(k[i]*h[i]);

end;
 Edit3.Text:=IntToStr(u);
end;
end.

[Roof]

Если у тебя вещественные значения в StringGrid, надо объявлять массивы типа Real:

procedure TForm1.Button3Click(Sender: TObject);
var
u :Real;
i, n:integer;
k:array of Real;
h:array of Real;


begin
n:= StringGrid1.RowCount;
u:=0;
SetLength(k, n);
SetLength(h, n);
for i := 0 to n-1 do
  begin
    k[i]:=StrToFloat(StringGrid1.Cells[0,i]);
    h[i]:=StrToFloat(StringGrid2.Cells[0,i]);
  end;

for i:=0 to n do
begin
u:=u+(k[i]*h[i]);

end;
 Edit3.Text:= FloatToStr(u);
end;
end.

[Sianessa]

Roof работает!!! Наконец-то!!! Большое вам спасибо!!!
Я думала об этом, но почему-то в итоге решила всё же интеджер сделать =__=
Ещё раз благодарю)

[Roof]

Ты умничка, разобралась сама, я только немного подсказал
В последнем цикле тоже n - 1 будет.
Почитай про типы данных в делфи.
Удачи