[artemavd]

Есть такой код:

Код:

a1 := StrToInt(StringReplace(Edit1.Text,',','.',[]));
  b1 := StrToInt(StringReplace(Edit2.Text,',','.',[]));
  c1 := StrToInt(StringReplace(Edit3.Text,',','.',[]));
  d1 := StrToInt(StringReplace(Edit4.Text,',','.',[]));
    k1 := (a1 +  b1 +  c1 +  d1); //количество оценок
    if k1<>0 then f1 := (2 * a1 + 3 * b1 + 4 * c1 + 5 * d1)/k1;  //расчет
      str:=FloatToStrF(f1,ffFixed,1,1);
       if Pos(',',str)<>0 then str[Pos(',',str)]:='.';
         label7.Caption:=str;

В ответ выводит дробное число. Все как надо. Точка как разделитель. А есть какая нибудь функция, которая бы выводила в ответ также дробное число с точкой, но если данных нет, то выводила бы обычный ноль, т.е. «0», а не так «0.0» как это выводится в приведенном мной коде?)

[The Shadow]

Код:

if str='0.0' then str:='0';

[artemavd]

А куда мне это в моем коде вписать?)

[The Shadow]

Перед

Код:

         label7.Caption:=str;

[artemavd]

Это код, который складывает по вертикали ячейки в StringGrid:

Код:

for i:=1 to 25 do
   begin
      if (SG3.Cells[2,i]=' ') or (SG3.Cells[8,i]=' ') or (SG3.cells[14,i]=' ') or       (SG3.cells[20,i]=' ') then SG3.cells[26,i]:='0' else
        begin
          try
             summ:=(StrToFloat(SG3.Cells[2,i])+StrToFloat(SG3.cells[8,i])+
                         StrToFloat(SG3.cells[14,i])+
                         StrTofloat(SG3.cells[20,i]))/4;
            SG3.Cells[26,i]:=FloatToStrF(summ,ffFixed,1,1);
            if SG3.Cells[26,i]='0.0' then SG3.Cells[26,i]:='0';
          except
            SG3.Cells[26,i]:='0.0';

          end;
        end;
   end;

Но чтобы он работал, то необходимо на первой форме, откуда берутся данные, проставлять напротив тех фамилий где нет данных вручную нули, чтобы код приведенный выше работал. Как сделать, чтобы если нет данных то он не обращал внимания на это и работал?

[The Shadow]

Проверять что введено в нужной ячейке.

[artemavd]

Сообщение от The Shadow

Проверять что введено в нужной ячейке.

А как это сделать в моем коде?)