我正在使用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;

Logo

为开发者提供学习成长、分享交流、生态实践、资源工具等服务,帮助开发者快速成长。

更多推荐