Помогите реалезовать условие - "Если x целое число то"

[Кронос]

Помогите релезовать на Delphi следующий алгоритм:

Если x целое число то ...

[Kostia]

Возможно если x=round(x) то
или
если x=int(x) то

[_Dmitry]

if x mod 2=0 then

mod работает только с целыми числами integer, а если "х" имеет тип integer, тогда зачем еще какая-то проверка? Здесь вы проверяете делится или нет целое число пополам без остатка.
Следовательно делаем вывод, что у Кроноса x: real;

Возможно если x=round(x) то
или
если x=int(x) то

Нельзя сравнивать между собой вещественные числа.
Попробуйте выполнить следующую программу:

var
  x: real;
begin
  x:=0.1;
  if x = 0.1 then ShowMessage('да') 
    else ShowMessage('нет');

результат будет 'нет'
Поэтому, один из вариантов проверки будет таким:

epsilon:=1e-6; //погрешность
if abs(x-trunc(x)) <= epsilon then .....;

[Кронос]

Спасибо.

[B_N]

    if IsZero(x - trunc(x)) then ...................;

[SERG1980]

_______________