Перевод в строку. Сложение edit

[Djavol]

  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)));

Складывает строки, а не числа. Как правильнее написать?

[digitalis]

Это задание такое идиотское - или его воплощение? Почему azd1,bpw1 и т.п. должны храниться в строках, если дальше с числами проводятся операции ?
Первую строчку я проверил, работает нормально. Дальше нервов не хватило.
Для отладки можно после каждой azd1:= и пр. сделать вывод полученных промежуточных результатов в listbox или memo на известных наборах данных, если уж лень прогнать в режиме отладки.
Научить никого нельзя - можно научиться.
А правильнее завести нужное число переменных float, скинуть туда данные из едитов и работать с числами - вместо заниматься брейнфакингом.

[newerow1989]

Сообщение от Djavol

azd1:=FloatToStr

Похоже azd1 типа string

Сообщение от Djavol

(FloatToStr(StrToFloat(azd1+bpw1)/2)

А это лишнее в преобразованиях string - integer - string

Сообщение от Djavol

azd1+bpw1

строка + строка

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

[digitalis]

А это лишнее в преобразованиях string - integer - string

Серьёзно ?
Мало того, что лишнее, так оно и нерабочее : если azd1, к примеру, = '1.5', а bpw1 = '1.7', то при попытке StrToFloat('1.51.7') комп с ума свихнется.