21.10.2018, 22:01
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Надо так:
Код:
s1 := StrToFloat(Edit1.Text);
...
Ну и в конце:
Код:
t := FloatToStr((s1+s2+s3)/(v1+v2+v3));
Edit7.Text := t; // Если уж так хочется... |