Replace MainForm.pas

MainForm.pas

-unit mainform;
+unit MainForm;
 
 interface
 
@@ -6,10 +6,10 @@ uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   FMX.Edit, FMX.Controls.Presentation,FMX.Platform.Android, FMX.Layouts,
-  Androidapi.JNI.Os,System.Permissions, FMX.ListBox;
+  Androidapi.JNI.Os,System.Permissions, System.IOUtils,FMX.ListBox;
 
 type
-  THeaderFooterForm = class(TForm)
+  TToolsForm = class(TForm)
     Header: TToolBar;
     Footer: TToolBar;
     HeaderLabel: TLabel;
@@ -33,6 +33,7 @@ type
     procedure TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
     procedure DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
     procedure ComboBox1Change(Sender: TObject);
+    procedure FormShow(Sender: TObject);
 
   private
     { Private declarations }
@@ -42,7 +43,7 @@ type
   end;
 
 var
-  HeaderFooterForm: THeaderFooterForm;
+  ToolsForm: TToolsForm;
   FPermissionReadExternalStorage,FPermissionWriteExternalStorage: string;   //申请权限用
 
 
@@ -58,7 +59,7 @@ uses
 var
   urlstr:string;
 
-procedure THeaderFooterForm.Button1Click(Sender: TObject);
+procedure TToolsForm.Button1Click(Sender: TObject);
 var
     Intent:JIntent;
 
@@ -75,13 +76,13 @@ begin
   TAndroidHelper.Activity.startActivity(Intent);
 end;
 
-procedure THeaderFooterForm.Button2Click(Sender: TObject);
+procedure TToolsForm.Button2Click(Sender: TObject);
 begin
    edit1.text:='';
    edit2.text:='';
 end;
 
-procedure THeaderFooterForm.Button3Click(Sender: TObject);
+procedure TToolsForm.Button3Click(Sender: TObject);
 var
     Intent:JIntent;
     healthcodeurl:string;
@@ -94,14 +95,14 @@ begin
   TAndroidHelper.Activity.startActivity(Intent);
 end;
 
-procedure THeaderFooterForm.Button4Click(Sender: TObject);
+procedure TToolsForm.Button4Click(Sender: TObject);
 begin
    form1.show;
 end;
 
 
 
-procedure THeaderFooterForm.Button5Click(Sender: TObject);
+procedure TToolsForm.Button5Click(Sender: TObject);
 //var
     //Intent:JIntent;
     //userstr:string;
@@ -122,17 +123,20 @@ begin
 
 
 end;
-procedure THeaderFooterForm.ComboBox1Change(Sender: TObject);
+
+procedure TToolsForm.ComboBox1Change(Sender: TObject);
 begin
   edit1.text:=combobox1.items[combobox1.itemindex];
 end;
 
-procedure THeaderFooterForm.FormCreate(Sender: TObject);
+procedure TToolsForm.FormCreate(Sender: TObject);
 {var
   cursor: JCursor;  //读浏览器书签用
   ContentResolver:JContentResolver; }
 
 begin
+
+
 {$IFDEF ANDROID}
   FPermissionReadExternalStorage := JStringToString(TJManifest_permission.JavaClass.READ_EXTERNAL_STORAGE);
   FPermissionWriteExternalStorage := JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE);
@@ -143,11 +147,19 @@ PermissionsService.RequestPermissions([FPermissionReadExternalStorage, FPermissi
 //cursor := ContentResolver.query(StrToJURI('Browser.BOOKMARKS_URI'), Browser.HISTORY_PROJECTION, whereClause, null, orderBy);
 
 end;
+procedure TToolsForm.FormShow(Sender: TObject);
+var
+  favoritefile:string;
+begin
+  favoritefile:=System.IOUtils.Tpath.GetSharedDocumentsPath +'/myfavorite/myfavorite.txt';
+  combobox1.items.loadfromfile(favoritefile);  //从文件读取收藏网址列表
+end;
+
 procedure RequestPermissionsResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
 begin
 
 end;
-procedure THeaderFooterForm.TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
+procedure TToolsForm.TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>);
 begin
 
  // 申请的2个权限: READ_EXTERNAL_STORAGE and WRITE_EXTERNAL_STORAGE
@@ -160,7 +172,7 @@ begin
     ShowMessage('权限受限，程序不能正常运行！')
 
 end;
-procedure THeaderFooterForm.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
+procedure TToolsForm.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
 var
   I: Integer;
   RationaleMsg: string;