Delphi XE5 Android中如何实现SD卡上的文件长尾词保存与加载操作?

2026-04-10 16:492阅读0评论SEO教程
  • 内容介绍
  • 相关推荐

本文共计296个文字,预计阅读时间需要2分钟。

Delphi XE5 Android中如何实现SD卡上的文件长尾词保存与加载操作?

我在Delphi XE5中进行Android开发。我喜欢将TStringList保存并加载到SDCard上的文本文件中。保存时一切正常。保存后,我可以通过调用LoadFromFile来加载文件。问题是,当我关闭应用时。

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

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

Delphi XE5 Android中如何实现SD卡上的文件长尾词保存与加载操作?

问题是我关闭应用程序并再次打开它.文件不存在?
这是文件位置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中如何实现SD卡上的文件长尾词保存与加载操作?

我在Delphi XE5中进行Android开发。我喜欢将TStringList保存并加载到SDCard上的文本文件中。保存时一切正常。保存后,我可以通过调用LoadFromFile来加载文件。问题是,当我关闭应用时。

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

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

Delphi XE5 Android中如何实现SD卡上的文件长尾词保存与加载操作?

问题是我关闭应用程序并再次打开它.文件不存在?
这是文件位置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.