Delphi 7. Действия с матрицами. прога маленькая, но не понятно в чём баг.

[gonf]

задача: Задана матрица Р(N,N). Найти произведение элементов матрицы, взятых с обратным знаком, исключая нулевые элементы и элементы, превышающие по значению 12,32.

type T1=array[0..10,0..10] of real;
var
    i,j,n:Byte;
    A:Real;
    X:T1;
begin
  n:=StrToInt(Edit1.Text);
  //оформление заголовков StringGrid1
  with StringGrid1 do begin
   for i:=1 to n do
    cells[0,i]:=IntToStr(i)+' строка';
   for j:=1 to n do
    cells[0,j]:=IntToStr(j)+' столбец';
   for i:=1 to n do
   for j:=1 to n do
    X[i,j]:=StrToFloat(cells[j,i]);
  end;
  //ввод матрицы по строкам
  with StringGrid1 do
   for i:=1 to n do
   for j:=1 to n do
   X[i,j]:=StrToFloat(cells[j,i]);
  //результат
  A:=1;
  for i:=1 to n do
  for j:=1 to n do
   if (x[i,j]<>0) and (x[i,j]<=12.32) then A:=A*x[i,j];
  end;

компилится, но прога выдаёт ошибку "is not a valid floating point value"

[Sazary]

Все работает как надо.

но прога выдаёт ошибку "is not a valid floating point value"

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

ps Вы хоть вывод A добавьте что-ли )

ShowMessage(FloatToStr(A));

[Stilet]

Может быть Автор неверно разделитель вводит. Может нужно запятую а вводится точка в числах.
Автор: Определи DecimalSeparator, и вместо StrToFloat используй StrToFloatDEF.

[Anatole]

взятых с обратным знаком,

не забывайте знак менять т.е.

if (x[i,j]<>0) and (x[i,j]<=12.32) then A:=-A*x[i,j];