FloatToInt(X : Float) : Integer
Преобразовать число с плавающей точкой в целое число.

Функция FloatToInt преобразовывает число с плавающей точкой в целое число. Дробная часть при этом просто отбрасывается.

Пример:

Procedure OnCreate;
var
  F : Float;
  I : Integer;
Begin
  F := 100.9;
  I := FloatToInt(F);
  Warning(ToStr(I)); //100
End;

© RTIT