Ошибки при использовании FloatToStr

@zk-protmbobi · Регистрация: 17.12.2015

Author24 — интернет-сервис помощи студентам

Delphi7. Не могу понять как правильнее написать, он складывает edit,ы ну и считает по формуле, посмотрите может типы не те, я ввожу в edit он выводит дробь в листбокс. Что не так: не считает сумму, просто думает как строка. Складывает строки.

Delphi

  azd1:=FloatToStr((StrToFloat (edit7.text)+StrToFloat(edit8.text)+StrToFloat(edit9.text)+StrToFloat(edit10.text)+StrToFloat(edit11.text))/5);
  bpw1:=FloatToStr((StrToFloat(edit22.text)+StrToFloat(edit23.text)+StrToFloat(edit24.text)+StrToFloat(edit25.text)+StrToFloat(edit26.text))/5);
  azd2:=FloatToStr((StrToFloat(edit17.text)+StrToFloat(edit18.text)+StrToFloat(edit19.text)+StrToFloat(edit20.text)+StrToFloat(edit21.text))/5);
  bpw2:=FloatToStr((StrToFloat(edit12.text)+StrToFloat(edit13.text)+StrToFloat(edit14.text)+StrToFloat(edit15.text)+StrToFloat(edit16.text))/5);
 
  listbox1.Items.add((FloatToStr(StrToFloat(azd1+bpw1)/2))+(FloatToStr(StrToFloat(azd2+bpw2)/2)));

@ROS88 · 20.02.2017, 19:10

Сообщение от zk-protmbobi

StrToFloat(azd1+bpw1)

StrToFloat(azd1)+StrToFloat(bpw1)

Сообщение от zk-protmbobi

StrToFloat(azd2+bpw2)

StrToFloat(azd2)+StrToFloat(bpw2)

@ROS88 138 / 136 / 100 Регистрация: 10.03.2015 Сообщений: 553
	20.02.2017, 19:10	2
	Сообщение от zk-protmbobi StrToFloat(azd1+bpw1) StrToFloat(azd1)+StrToFloat(bpw1) Сообщение от zk-protmbobi StrToFloat(azd2+bpw2) StrToFloat(azd2)+StrToFloat(bpw2) 1