Integer/fractional part of number
Use Int function, if you want to get integer part of real number and Fruc function for getting fractional part of it.
procedure TForm1.Button1Click(Sender: TObject); var Number: Real; begin Number:=StrToFloat(Edit1.Text); Label2.Caption:= 'Integer part is '+ FloatToStr(Int(Number)); Label3.Caption:= 'Fractional part is '+ FloatToStr(Frac(Number)); end;