[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» как это выводится в приведенном мной коде?)