Тема: Функция
Показать сообщение отдельно
  #7  
Старый 29.03.2012, 22:31
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Код:
var
  s  : Single;
  b  : Byte;
begin
  s := 123.123;
  b := Trunc(s);
Самое простое.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием