写一些文字并保存在我的Android手机上

时间:2017-07-14 08:39:51

标签: android delphi firemonkey

我正在尝试在我的Android手机上保存一些文件(test.txt)但不成功。这是我的代码示例:

procedure TDM.WriteLog(text:string);
var
   myFile : TextFile;


 begin


   // Try to open the Test.txt file for writing to
   AssignFile(myFile, System.IOUtils.TPath.Combine(System.IOUtils.tpath.getdocumentspath,'test.txt'));
   ReWrite(myFile);

   // Write a couple of well known words to this file
   WriteLn(myFile, text + sLineBreak );


   // Close the file
   CloseFile(myFile);


 end;

当我在手机上找到文件时,我打开文件,但它是空的。我错过了什么?

1 个答案:

答案 0 :(得分:4)

当您想在Android中创建文本文件时(当然,它与iOS和macOS相同),您可以使用属于TFile类的WriteAllText类过程。您必须添加uses子句System.IOUtils

TFile.WriteAllText(TPath.Combine(TPath.GetDocumentsPath, 'test.txt'), 'content');

如果要存储文本文件或与应用程序相关的一般数据,建议您使用GetDocumentsPath。这是一种创建文本文件的现代方法,但它不是唯一的文件;还要考虑你可以:

  1. 使用TStringlist,然后调用SaveToFile('path')
  2. 如果您使用的是备忘录,则它具有SaveToFile('path')功能
  3. 使用TStreamWriter类(和StreamReader读取内容)