这个是输出实数的整数和小数部分的的代码
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real;
c:integer;begin
a:=strtofloat(edit1.text);
c:=trunc(a);
b:=a-int(a);
showmessagefmt('整数部分为%d，小数部分为%f',[c,b])
end;end.
%.f 只能输出小数点后两位，%.3f才能输出更多位小数，怎么解决啊，小白求教。。。。。。

formatfloat