[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

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

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

[The Shadow]

Код:

if StringGrid.Cells[x, y] = '' then StringGrid.Cells[x, y]:='0';

тогда все пустые клетки сами заполнятся нулями

[artemavd]

The Shadow, вы немного меня неправильно поняли). Я может не очень правильно написал). Виноват если что. Мне надо вот что: надо чтобы тот код который я привел выше работал так, что если у меня на первой форме нет данных (то есть пусто), то в таблице бы ничего не появлялось, а расчет производился бы только по известным данным. А то сейчас он не считает если не ввожу нули с основной формы. Программа выдает ошибку: " ' ' is not valid floating point value"( Вроде бы и try..except использовал, но все равно мне пока не помогло решить эту проблема эта конструкция((. Может у вас есть какие идеи?

[The Shadow]

Код:

if StringGrid.Cells[x, y] <> '' then
//Ячейка не пустая