当前位置 : 主页 > 编程语言 > delphi >

DELPHI XE5 Android – SDCard的SAVE / LOAD文件

来源:互联网 收集:自由互联 发布时间:2021-06-23
我正在使用Delphi XE5进行 Android开发. 我喜欢将TStringList保存并加载到SDCard上的文本文件中. 当我将TStringList保存到文件时,一切正常.保存后我可以调用LoadFromFile并加载文件. 问题是我关闭应
我正在使用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.

网友评论