Код:
var
f1,k1,a1,b1,c1,d1: real;
begin
a1:=StrToFloat(Edit1.Text);
b1:=StrToFloat(Edit2.Text);
c1:=StrToFloat(Edit3.Text);
d1:=StrToFloat(Edit4.Text);
k1:=(a1+b1+c1+d1);
f1:=(2* a1+3* b1+4* c1+5* d1)/k1;
label1.Caption:=FloatToStrF(f1,ffFixed,1,1);
Как мне сделать, чтобы если значения a1=1, b1=1, c1=1, d1=1, то в Label выводлися бы ответ не «3,5», а ответ был бы равен «3.5»? Подскажите пожалйста на моем примере!