SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ 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;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes