Mega Code Archive

 

Categories / Delphi / Examples

 

Integerfractional part of number

Title: 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;