VPF::Если переменная содержит дробное число то

DenRip

Дата 26.6.2007, 21:00 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Как правильно описать?
Если переменная содержит дробное число то........Вывести сообщение в противном случае выполнить код??

Код


var 
i:real; 
begin 
i:=edit1+edit2; 
if 
i=(не целое число)  //????????????
then 
MessageDlg 
('Вводите только целые число', mtWarning, [mbOk], 0); 
else
 .................................. 
end;

MaxB

Дата 26.6.2007, 21:22 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 10.2.2004
Где: Украина, Одесса

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

if i-int(i)=0 then
//i - целое число

Snowy

Дата 26.6.2007, 21:59 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Функция Frac возвращает дробную часть.
Ести вернуло не 0, значит число не целое

DenRip

Дата 27.6.2007, 21:46 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Спасибо!

Rennigth

Дата 29.6.2007, 09:48 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

DenRip, твой пример что-то не очень логичен. Если тебе нужна проверка на целые числа то лутше делать примено так:

Код


var 
  i: Integer; 
begin 
  if TryStrToInt(edit1.Text+edit2.Text, i) then
    (* To Do... целое число *)
  else
    MessageDlg('Вводите только целые числа', mtError, [mbOk], 0); 
else

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

(* Honesta mors turpi vita potior *)

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