(Resolvido) Tranformar valor Real em inteiro

[Eder]

Ola...tenho este exemplo abaixo:

procedure TForm4.QRLabel12Print(sender: TObject; var Value: String);
begin
Value:=Floattostr(Horas_Sumary / conta);
end;

o resultado dele seria, 19352,11

portanto o seu resultado é um valor real(float)

teria uma maneira do resultado eu arredondar eliminadando a cada após a vírgula(,11) ou seja, transformando num valor real no caso 19352 ??

muito Grato

[Churc]

Opa

Use o Trunc();

Value:=Floattostr(Trunc(Horas_Sumary / conta));

abraco

[Eder]

valeu..Churc

Grato :D