Android实例-如何将文件打包到安装文件(XE8+小米2)

结果：

1.文件名支持英文字母、数字，不支持中文，大小写敏感。

2.文件最好放在根目录下，或是子目录下，如果放在根目外，根目录改名后，找不到文件。

3.打开Project->Deployment->ADD Files->选择文件(支持多选)->Remote Path->assets\internal\(或者assets\)。

PS:

assets\:对应的是TPath.GetSharedDocumentsPath。

assets\internal\:对应的是TPath.GetDocumentsPath。

还有一种说是支持SD卡，但本人未能实现。希望哪位高手指点。

实例代码：

unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.ScrollBox, FMX.Memo;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Image2: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses
System.IOUtils;//需要引入
{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TForm1.Button1Click(Sender: TObject);
var
sFile1: string;
begin
// 文件名大小写敏感，切记
sFile1 := TPath.GetSharedDocumentsPath + PathDelim + '1.jpg';
if FileExists(sFile1) then
Image1.Bitmap.LoadFromFile(sFile1);//显示该图片

// 文件名大小写敏感，切记
sFile1 := TPath.GetDocumentsPath + PathDelim + '2.jpg';
if FileExists(sFile1) then
Image2.Bitmap.LoadFromFile(sFile1);//显示该图片
end;

end.