'' is not valid floating point value где ошибка в коде

[alshad89]

вот код
ar i,j,x,count:byte;
b1,b2,b3,b4:boolean;
str:string;
px,wx:real;
begin
str:='';
b1:=false; b2:=false; b3:=false; b4:=false; count:=0;
For i:=1 to StringGrid1.ColCount-1 do
For j:=1 to StringGrid1.RowCount-1 do
If (StringGrid1.Cells[i,j]='') Then b1:=true;
If b1 Then Showmessage('Не все поля таблицы заполнены!')

ошибка выходит после этого сообщения

Else Begin
For i:=1 to StringGrid1.ColCount-1 do
For j:=1 to StringGrid1.RowCount-1 do
Begin
If (Length(StringGrid1.Cells[i,j])>5) Then Begin b2:=true; StringGrid1.Cells[i,j]:=''; End;
End;
If b2 Then Showmessage('В таблицу внесено слищком большое число прироста прибыли предприятия')
Else
Begin
For i:=1 to StringGrid1.ColCount-1 do
For j:=1 to StringGrid1.RowCount-1 do
Begin
str:=StringGrid1.Cells[i,j];
For x:=1 to Length(str) do
If (str[x]=',') Then inc(count);
If ((count>1)or(str[1]=',')or(str[Length(str)]=',')) Then b3:=true;
str:=''; count:=0;
End;
If b3 Then Begin Showmessage('В таблице неверно расставлены запятые!'); End
Else Begin
j:=1;
Repeat
For i:=1 to StringGrid1.ColCount-2 do
If ((StrToFloat(StringGrid1.Cells[i,j]))>(StrToFloat (StringGrid1.Cells[i+1,j])))
Then b4:=true;
inc(j);
Until (j=StringGrid1.RowCount);
If b4 Then Begin Showmessage('Числовые данные в таблице заданы неверно!'); End
Else Begin

Button4.Enabled:=false;

StringGrid1.Enabled:=false;
End;
End;
End;
End;

[Sciv]

If ((StrToFloat(StringGrid1.Cells[i,j]))>(StrToFloat (StringGrid1.Cells[i+1,j])))

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

[alshad89]

да вроде б и не там посмотрем по компелятору сообщение об ошибке выходит после моего сообщения об ошибке не все поля заполненны а в строчке на которую вы мне укозали все равно решил попробывать исправить ошибку но не получилось
If ((StrToFloatDEF(StringGrid1.Cells[i,j],0))>(StrToFloatDEF (StringGrid1.Cells[i+1,j],0)))

[alshad89]

подскожите пожалуйста что это может быть а то завтро уже здавать курсовой проект а у меня такой косяк

[evg_m]

If b3 Then Begin Showmessage('В таблице неверно расставлены запятые!'); End

А что стоит в настройках системы для действительных чисел(точка или запятая) ?

DecimalSeparator:=','; // ДО использования StrToFloat

хотя нет.

'' is ...

Это все-таки пустая строка(ячейка).

[alshad89]

вот и я не могу понять где именно возникает эта ошибка

[Аватар]

Проверь в цикле каждую ячейку с помощью TryStrToFloat тогда и поймешь

[Sciv]

Дебаггер в помощь, что ещё сказать?

Скиньте архив с проектом. Может, и не в этом куске кода ошибка-то возникает...