问个txt文本输出的问题

Question

我在data[1][1]里保存了(double)浮点数((5.2,4.8),(2.1,2.3))
现在想以以下格式输出
5.2  4.8  
2.1  2.3
用代码如下
writeln(WriteFile,Data[0][0],Data[0][1]);
writeln(WriteFile,Data[1][0],Data[1][1]);
可是结果是
5.20000000000000E+0000 4.80000000000000E+0000 
2.10000000000000E+0000 2.30000000000000E-0001
应该怎么才能输出没有0000000000000E+0000这个东东的啊  急啊

Answer 1

保留2位小数,够么?在USER部份加入MATH单元后可以使用 
a:=RoundTo(Data[0][0], 2);
b:=RoundTo(Data[0][1], 2);
c:=RoundTo(Data[1][0], 2);
d:=RoundTo(Data[1][1], 2);
writeln(WriteFile,a,b);
writeln(WriteFile,c,d);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  data : array[0..1,0..1] of double;
begin
  data[0][0] := 5.2;
  data[0][1] := 4.8;
  data[1][0] := 2.1;
  data[1][0] := 2.3;  showmessage(floattostr(data[0][0]));end;