Здравствуйте, Mastak, Вы писали:

M> Есть переменная типа Double. Надо преобразовать её в Real с потерей точности. То етсь занчение в прицнипе должно остаться то же самое, но из-за меньшего числа байт теряется точнсоть 9некоторое число знаком после запятой). Как это сделать?

if DoubleNumber > _MaxReal
  then RealNumber := _MaxReal
else if DoubleNumber < _MinReal
  then RealNumber := _MinReal
else RealNumber := DoubleNumber

значения _MaxReal, _MinReal — надо в helpe посмотреть