Показать сообщение отдельно
  #13  
Старый 05.08.2008, 17:22
Аватар для artemavd
artemavd artemavd вне форума
Начинающий
 
Регистрация: 05.08.2008
Сообщения: 115
Репутация: 12
По умолчанию

PashaXP, вот код:
Код:
{1}
    if Form1.Label7.Caption='' then SG3.Cells[2,1]:='0'
    else SG3.Cells[2,1]:=Form1.Label7.Caption; (это получение данных с первой формы)
   summ:=(StrToFloat(SG3.cells[2,1])+StrToFloat(SG3.cells[8,1])+StrToFloat(SG3.cells[14,1])+StrToFloat(SG3.cells[20,1]))/4;
  SG3.Cells[26,1]:=FloatToStr(summ);

Мне надо, чтобы например в первой строчке можно было сложить четыре дробных числа и разделить на 4. Ответ снова получится дробь и этот / ответ надо вывести в указанную ячейку). Кто что может предложить?)
Цитата:
a1:=StrToFloat(Edit1.Text);
Такие вещи лучше в try ... except ... включать.
А можете написать применительнок моему коду пожалуйста?)
Ответить с цитированием