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

[Sianessa]

Помогите пожалуйста исправить ошибку. Выдаёт при расчётах ошибку типов данных и не выводит результат...
Помогите пожалуйста!
Вот код:

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

begin

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

[Roof]

Edit3.Text:=FloatToStr(u);

У тебя переменные типа Integer; значит

Edit3.Text:=IntToStr(u);

[Sianessa]

Roof, у меня сначала так и было, но это не помогло... =__=

[Roof]

у тебя вообще код странный.

k:array of integer;
h:array of integer;

Где размерность массива? У тебя он объявлен как динамический. А если так, то надо выделять память под него. самое простое - SetLenght можно использовать.

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

А i чему равно??

судя по всему ты цикл забыла написать тут.

for i := 0 to n  - 1 do  // или от 1 до n  - в зависимости от индексации в массиве
  begin
    k[i]:=StrToInt(StringGrid1.Cells[i,0]);
    h[i]:=StrToInt(StringGrid2.Cells[i,0]);
  end;

[Sianessa]

Roof, я добавила цикл, но он теперь пишет, что десятичное число не является переменной типа integer =__=

[Roof]

я не могу угадать просто где у тебя ошибка, довольно слабо развиты телепатические способности . Выкладывай исходник чтобы я не гадал.

[Sianessa]

Вот исходник, как и просили...
Собственно коды первых двух кнопочек работают нормально, а вот к третьей, где расчёты начинаются - ошибка.

[Roof]

исходник того листинга, где не работает - прямо сюда с указанием проблемы. У меня нету делфи под рукой сейчас.

[Sianessa]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid2: TStringGrid;
    Edit1: TEdit;
    Label3: TLabel;
    Button1: TButton;
    StringGrid3: TStringGrid;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount:=StrToInt(Edit1.Text); {Задаем количество элементов массива}
StringGrid2.RowCount:=StrToInt(Edit1.Text);
StringGrid3.RowCount:=StrToInt(Edit1.Text);
n:=StrToInt(Edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i,j,n: integer;
begin
 randomize;

    for i:=0 to StringGrid1.ColCount - 1 do
          for j:=0 to StringGrid1.RowCount - 1 do
             begin
             for n:=0 to 1  do
             begin
                StringGrid1.Cells[i,j]:=FloatToStr(Random(100)/100);
                StringGrid2.Cells[i,j]:=FloatToStr(Random(100)/100);

             end;
             end;
end;


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

begin

u:=0;

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

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

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

Не работает событие под procedure TForm1.Button3Click(Sender: TObject);

[Roof]

объяснял же - массивы объявлены как динамические
либо объявить как статические с указанием размерности, либо использовать SetLenght.
Размерность массива знаешь? Полагаю размерность будет равна количеству столюоцов в StringGrid1 или в StringGrid2. И, по всей видимости, это количество равное.