其他分享
首页 > 其他分享> > DELPHI XE5 Android – SDCard的SAVE / LOAD文件

DELPHI XE5 Android – SDCard的SAVE / LOAD文件

作者:互联网

我正在使用Delphi XE5进行Android开发.

我喜欢将TStringList保存并加载到SDCard上的文本文件中.
当我将TStringList保存到文件时,一切正常.保存后我可以调用LoadFromFile并加载文件.

问题是我关闭应用程序并再次打开它.文件不存在?
这是文件位置FileName:=’/ data / data / [com.MY.APP] /files/File.txt’

在应用程序用户权限下=写入外部存储:True

我是否需要将文件保存到另一个文件夹?

谢谢你的帮助.

这在我的代码和设置中.

procedure LOAD;
var
  TextFile: TStringList;
  FileName: string;
begin
     TextFile := TStringList.Create;
    try
      FileName := Format('%s/File.txt', [GetHomePath]);
      if FileExists(FileName) then
      begin
        TextFile.LoadFromFile(FileName);
        Memo1.Lines.Text := TextFile.Text
      end
      else
        ShowMessage('File not exists!');
    finally
      TextFile.Free;
    end;     

end;

procedure SAVE;
var
  TextFile: TStringList;
  FileName: string;
begin   
    TextFile := TStringList.Create;
    try
      FileName := Format('%s/File.txt', [GetHomePath]);
      TextFile.Text := Memo1.Lines.Text;
      TextFile.SaveToFile(FileName);
    finally
      TextFile.Free;
    end;     
end;

解决方法:

是,

AppPath := TPath.GetHomePath; 
FileName := TPath.Combine(AppPath, 'File.txt');

工作正常.
不要忘记将单元System.IOUtils添加到uses子句中.

谢谢xJernej.

标签:android,delphi,delphi-xe5
来源: https://codeday.me/bug/20190629/1324026.html