StringGrid ошибочка

[Йогурт]

Здравствуйте! Суть вопроса:Сделал рандом вбивание чисел на форме в 5 Stringgrid. Также на форме есть кнопка которая выводит форм два..там идет подсчет чисел из всех 5-ти стрингов в один! Ошибка Is not a valid floating point value!

Ошибка на пустое значение, я ее нашел где именно Form16.StringGrid1.Cells[i,j]:=''; что сюда дописать не знаю))

Вообщем если можете помочь в нубском вопросе, и разобрать его то велком! Заранее спасибо!

Код программы:
Рандом:
randomize;

for I := 1 to form15.StringGrid1.ColCount do
for j := 1 to form15.StringGrid1.RowCount do
Form15.StringGrid1.Cells[i,j]:=inttostr(random(Ran)+1);


for I := 1 to form15.StringGrid2.ColCount do
for j := 1 to form15.StringGrid2.RowCount do
Form15.StringGrid2.Cells[i,j]:=inttostr(random(Ran)+1);

for I := 1 to form15.StringGrid3.ColCount do
for j := 1 to form15.StringGrid3.RowCount do
Form15.StringGrid3.Cells[i,j]:=inttostr(random(Ran)+1);

for I := 1 to form15.StringGrid4.ColCount do
for j := 1 to form15.StringGrid4.RowCount do
Form15.StringGrid4.Cells[i,j]:=inttostr(random(Ran)+1);

for I := 1 to form15.StringGrid5.ColCount do
for j := 1 to form15.StringGrid5.RowCount do
Form15.StringGrid5.Cells[i,j]:=inttostr(random(Ran)+1);

Вбивает общий подсчет на вторую форму в один стринг

for i := 1 to StringGrid1.ColCount do
for j := 1 to StringGrid1.RowCount do
begin
Form16.StringGrid1.Cells[i,j]:='';


end;


sum:=0;
for i := 1 to StringGrid1.ColCount-1 do
begin
for j := 1 to StringGrid1.RowCount do
begin
sum:=sum+StrToFloat(StringGrid1.Cel ls[j,i]);
end;
Form16.StringGrid1.Cells[1,i]:=FloatToStr(sum/StrToInt(Label3.Caption));
sum:=0;
end;

[Скандербег]

Нужен весь исходник. В приведенном коде не понятно что к чему.

  for i := 1 to StringGrid1.ColCount do
    for j := 1 to StringGrid1.RowCount do //этот StringGrid1 должен соответствовать
      Form16.StringGrid1.Cells[i,j]:=''; //этому; а соответствует ли? из приведенного когда непонятно

Если StringGrid1 здесь находится на Form16, то зачем обнулять ее ячейки. Чтобы потом рассчитывать среднее значение из пустых (дальше идет расчет среднего)?
Если находится на другой форме, то сканирование (i, j) происходит по одной таблице, а присвоение пустого значения совсем в другую таблицу.
Ошибка "Is not a valid floating point value!" может происходить скорее всего здесь: StrToFloat(StringGrid1.Cells[j,i]);, если в ячейке пустая строка.

[soleil@mmc]

а что мешает сделать так в первом цикле?

Form16.StringGrid1.Cells[i,j]:='0';

только остается неясным - на какой форме вы прогоняете этот подсчет

sum:=sum+StrToFloat(StringGrid1.Cells[j,i]);

по сути имеет смысл написать свою функу, на вход которой приходит стринг, на выходе флоат, а внутри обрабатывать ситуацию пустой строки или неформатной

[Пепел Феникса]

а разве try except end: отменили?