/data/xxx.txt 失败
xxx.txt 也失败
/AppName/xxx.txt 失败
....
怎么给文件路径？最好是保存App下面
刚开始玩XE5 Android,发现一个好的想象，就是程序一旦跑起来了，还是挺快的，另外可以使用指针也说明了效率
procedure TDCalcForm.TestSpeedBtnClick(Sender: TObject);
var
D : TDateTime;
i : integer;
f : Double;
begin
Self.Tag := 1;
D := Now();
f := 2904293742987491237.12;
for i := 1 to 100000000 do begin
f := f / (Tag + 0.1);
if D>0 then f := f + D;
if f<0 then Break;
end;
D := Now() - D;
Self.HisLabel1.Text := FormatDateTime('HH:MM:SS' , D) + ' ' + FloatToStr(f);
end;
真机上跑，只花了6秒钟，还是可以
