перевод значений

[DeDoK]

есть ли в делфи функция перевода числа из extended в integer и наоборот?
потому что проблема такая
в alphaskin есть компонент sDecimalSpinEdit
при коде

for i:=1 to sDecimalSpinEdit1.value do

получаю ошибку
[Error] MainUnit.pas(84): Incompatible types: 'Integer' and 'Extended'

пробовал заменить тип i на real, но ничего не поменялось. у кого какие предложения?

[Selestis]

Функция Round

[DeDoK]

у меня там всегда целое значение.. куда округлять? хотя как не странно - работает

[Selestis]

есть ли в делфи функция перевода числа из extended в integer

Это делает ф-ия Round.
Какой тип у sDecimalSpinEdit1.value. Ведь что-то вроде single/double/extended? Тогда заключите его в скобки функции.

[Grag]

Сообщение от DeDoK

есть ли в делфи функция перевода числа из extended в integer

Функция Floor( X: Extended ): Integer;
Модуль: Math
Описание
Функция округляет значение аргумента X к ближайшему меньшему целому. Абсолютное значение X не должно превышать величину MaxInt ( 2 147 483 647 ).

Функция Ceil( X: Extended ): Integer;
Модуль: Math
Описание
Функция округляет значение аргумента X к ближайшему большему целому. Абсолютное значение X не должно превышать величину MaxInt ( 2 147 483 647 ).

и наоборот?

наоборот не нужно, т.к. диапазон целочисленных значений входит в диапазон значений extended...

[vovk]

Сообщение от DeDoK

у меня там всегда целое значение.. куда округлять? хотя как не странно - работает

А зачем тогда extended?