Delphi XE5 Android中如何实现SD卡上的文件长尾词保存与加载操作?
- 内容介绍
- 相关推荐
本文共计296个文字,预计阅读时间需要2分钟。
我在Delphi XE5中进行Android开发。我喜欢将TStringList保存并加载到SDCard上的文本文件中。保存时一切正常。保存后,我可以通过调用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.
本文共计296个文字,预计阅读时间需要2分钟。
我在Delphi XE5中进行Android开发。我喜欢将TStringList保存并加载到SDCard上的文本文件中。保存时一切正常。保存后,我可以通过调用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.

