VPF::double to integer problem - Форум программистов

muratboy31

Дата 18.2.2010, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i am using business skin form and the value i get from bsskinspin edit is double but i need it integer... i tried to convert it like that but it didnt work... can someone please help me about it =

Код


type  
 TVarRec = record  
   case Integer of  
     0: ( FInt : Integer; );  
     1: ( FDouble : Double; )  
end;  
  
procedure TForm1.Timer2Timer(Sender: TObject);  
begin  
Timer2.Interval :=(Convert(sSpinEdit1.Value))*1000;  
end;  
  
function TForm1.Convert(constADouble: Double): Integer;  
var  
 arec : TVarRec;  
begin  
 arec.FDouble := ADouble;  
 Result := arec.FInt;  
end;

Это сообщение отредактировал(а) muratboy31 - 18.2.2010, 09:38

artsb

Дата 18.2.2010, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 6
Всего: 64

Код


Timer2.Interval :=(StrToInt(FormatFloat('#####0.', sSpinEdit1.Value)))*1000;

Это сообщение отредактировал(а) artsb - 18.2.2010, 11:08

--------------------

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »