Тема: сумма в поле
Показать сообщение отдельно
  #2  
Старый 23.04.2012, 18:58
PS11011010 PS11011010 вне форума
Новичок
  
Регистрация: 30.03.2012
Сообщения: 98
Репутация: 282
По умолчанию
Код:
i:=StrToInt(Edit1.Text);
per:=4;
S1.Text:=FloatToStr(i/100*per);
S2.Text:=FloatToStr(i/100*(100-per));
Ответить с цитированием