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