Функція IsInfinite – перевіряє, чи є число з плаваючою точкою нескінченним

Функція IsInfinite в Delphi перевіряє, чи є число з плаваючою точкою нескінченним.

Функція IsInfinite: Присвоєння числу Infinity, а потім використання IsInfinite

var
  float : Double;

begin
  // Присвоєння нескінченності числу
  float := Infinity;     // Еквівалентно1.0/0.0

  // Хоча нескінченно, ми все ж таки можемо відобразити його
  ShowMessage('float = '+FloatToStr(float));

  // І ми можемо перевірити чи нескінченно воно
  if IsInfinite(float)
  then ShowMessage('float нескінченно')
  else ShowMessage('float = '+FloatToStr(float));
end;