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.