我在处理一个单击事件时，用了一个文件操作，如下代码所示，可是我生成的boat.dat的数指数型的，问如何将数变成普通的有小数点后尾三位或者有四个有效数字的数
代码如下：
procedure TForm2.ButtonOKClick(Sender: TObject);
var
    f: textfile;       {在这里将变量定义}
  BoatLength: real;
  Boatwidth: real;
begin

    BoatLength:= strtofloat(Length.Text);
  Boatwidth:= strtofloat(Lwidth.Text);
  Assignfile(f, 'boat.dat');
  rewrite(f);
  writeln(f,BoatLength,Boatwidth);
  closefile(f);
  Form2.Close;
end;