как real перевести в integer

Ответ от Soci0pat[активный]
procedure TForm1.Button1Click(Sender: TObject);
var
r: real;
k: integer;
begin
r := 3.58;
k := Trunc(r);
k := Round(r); //выбирай любой способ. Первый отсекает дробную часть, в результате k = 3, второй округляет и k = 4.
end;
Источник: ссылка