Ошибка: is not a valid floating point value

[Toshibo]

Добрый день.
Цель: Заполнить таблицу(form4.StringGrid1) за счет расчетов других таблиц по методу минимальной стоимости. Написал по методу Северо-Западного угла(если о чём-то говорит) подобным способом - все работает, а тут выскакивает ошибка "is not a valid floating point value". Пробовал менять разделитель в панели, не помогло. Использовал StrToFloatDef - ошибка о не возможности использования. Не знаю в чём уж тут дело. Прошу вашей помощи.
P.S. При вводе пустых ячеек нет, ввожу только целые числа.

procedure TForm1.N7Click(Sender: TObject);
var a:array[1..10,1..10] of Real;
    n,m,i,j,i1,j1,i0,j0,c:Integer;
    min,fun,z1,z2,z:real;
    k:string;
begin
form4.StringGrid1.rowCount:=(form2.StringGrid1.ColCount)+1;
form4.StringGrid1.ColCount:=(form2.StringGrid2.ColCount)+1;
                                                    {Подпись фикс. ячеек}
n:=form2.StringGrid2.ColCount;
for j:=1 to n do
begin
k:=inttostr(j);
form4.StringGrid1.cells[j,0]:='b[' +k+ ']';
end;
m:=form2.StringGrid1.ColCount;
for i:=1 to m do
begin
k:=inttostr(i);
form4.StringGrid1.cells[0,i]:='a[' +k+ ']';
end;

fun:=0;
c:=0;
z:=0;
i:=0;
j:=0;
min:=strtofloat(form3.StringGrid1.cells[0,0]);
repeat
for i:=0 to m do             {Нахождение min}
for j:=0 to n do
begin
if (min<strtofloat(form3.StringGrid1.cells[i,j])) and (strtofloat(form3.StringGrid1.cells[i,j])>0) then
begin
min:=strtofloat(form3.StringGrid1.cells[i,j]);
i0:=i;
j0:=j;
end;
end;
                                                                       {Заполнение таблицы}
z1:=strtofloat(form2.StringGrid1.cells[i0,0]);
z2:=strtofloat(form2.StringGrid2.cells[j0,0]);
if (z1>0) AND (z2>0) then
begin
if z1<z2 then
begin
form4.StringGrid1.cells[i0+1,j0+1]:=floattostr(z1);
form2.StringGrid1.cells[i0,0]:='0';
z:=(z2-z1);
form2.StringGrid2.cells[j0,0]:=floattostr(z);
fun:=fun+z1*strtofloat(form3.StringGrid1.cells[i0,j0]); {Целевая функция}

form3.StringGrid1.cells[i0,j0]:='-1';
c:=c+1;
end
else
begin
form4.StringGrid1.cells[i0+1,j0+1]:=floattostr(z2);
form2.StringGrid2.cells[j0,0]:='0';
z:=(z1-z2);
form2.StringGrid1.cells[i0,0]:=floattostr(z);
fun:=fun+z2*strtofloat(form3.StringGrid1.cells[i0,j0]); {Целевая функция}

form3.StringGrid1.cells[i0,j0]:='-1';
c:=c+1;
end;
end
else
form3.StringGrid1.cells[i0,j0]:='-1';
until n+m-1=c;

form4.show;
end;

[GunSmoker]

ошибка о не возможности использования

Ась?

При вводе пустых ячеек нет, ввожу только целые числа.

Тогда это значит, что где-то напортачил с индексами. Типа, читаешь из несуществующей ячейки. А там - пустая строка.

[Serge_Bliznykov]

GunSmoker, +1

как минимум:

m:=form2.StringGrid1.ColCount;
for i:=1 to m do
begin
k:=inttostr(i);
form4.StringGrid1.cells[0,i]:='a[' +k+ ']';

скорее всего, должно быть наоборот, cells[i, 0] - сначала идёт индекс столбца, потом - строки...

[Toshibo]

Сообщение от Serge_Bliznykov

GunSmoker, +1

как минимум:


скорее всего, должно быть наоборот, cells[i, 0] - сначала идёт индекс столбца, потом - строки...

странно, почему же тогда фиксированные поля заполняются верно? Разве в sg индексы отличаются от обычного двумерного массива?

[GunSmoker]

Сделай отладочную функцию:

function GetCell(const AStringGrid: TStringGrid; const ACol, ARow: Integer): String;
begin
  if (ACol < 0) or (ACol >= AStringGrid.ColCount) then
    raise ERangeError.CreateFmt('Номер колонки (столбца) %d выходит за допустимый диапазон %d..%d', [ACol, 0, AStringGrid.ColCount - 1]); 
  if (ARow < 0) or (ARow >= AStringGrid.RowCount) then
    raise ERangeError.CreateFmt('Номер строки %d выходит за допустимый диапазон %d..%d', [ARow, 0, AStringGrid.RowCount - 1]); 
end;

И в коде все свои обращения к Cells замени на вызов GetCells.