delphi, ошибка в проге

[1nd1g0]

выдает ошибку при запуске: "" is not a valid floating point value
помогите пожалуста
сама прога:

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..8,1..6] of real;
s:array[1..6] of real;
n,m,i,j,k:integer;
begin
m:=strtoint(Edit1.Text);
n:=strtoint(Edit2.Text);
For i:=1 to n do
For j:=1 to m do
a[i,j]:=strtofloat(M1.Cells[j-1,i-1]);
For j:=1 to m do
begin
s[j]:=0;
For i:=1 to n do
s[j]:=a[i,j]+s[j];
end;
For j:=1 to m do
M2.Cells[j-1,0]:=floattostrf(s[j],fffixed,5,1);
k:=1;
For j:=1 to m do
if s[j]<s[k] then k:=j;
label6.Caption:='min s='+floattostrf(s[k],fffixed,5,1)+'   его №='+inttostr(k);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>' ' then
M1.RowCount:=strtoint(Edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if Edit2.Text<>' ' then begin
M1.ColCount:=strtoint(Edit2.Text);
M2.ColCount:=strtoint(Edit2.Text);
end;
end;

end.

[Serge_Bliznykov]

a[i,j]:=strtofloat(M1.Cells[j-1,i-1]);

по всей видимости в гриде есть пустые ячейки...
попробуйте либо через if их отследить:

  if trim(M1.Cells[j-1,i-1])='' then a[i,j]:= 0.0
  else  a[i,j]:=strtofloat(M1.Cells[j-1,i-1]);

либо, кардинальное решение, возьмите блок в try .. except;
тогда можно будет в гриде писать всякую чепуху, а ошибок преобразования всё равно не будет!

   try
     a[i,j]:=strtofloat(M1.Cells[j-1,i-1]);
   except
     a[i,j]:=0.0;
   end;

[1nd1g0]

в том то и дело что пустых клеток нет, разве что это связано с обрезанием массива, может такое быть?(исходный массив 1..8,1..6 мы обрезаем до 1..4,1..3)

[eoln]

Компилятор чётко говорит, что "" - это не число. Ну если нет пустых клеток, то может есть фиксированные столбец или строка в компоненте StringGrid? Если есть, то ошибка в них, они ведь тоже индексируются. Иначе показывай весь проект.

[1nd1g0]

вот сам проект, так и не дождался когда модератор проверит мою ссылку)

[eoln]

Путаница со строками и столбцами.

n:=strtoint(Edit1.Text);
m:=strtoint(Edit2.Text);

[1nd1g0]

воо, заработало) спасибо большое тебе eoln =)