android的資料與訪問(2)-delphi xe7如何存取我的app配置參數檔案？

標籤：

這種方法不推薦，因為該SharedPreference是android的方法。你想跨平台，在ios上就不能使用。建議還是用ini or xml。android因為讀寫該二種檔案比較繁瑣，所以推出自己簡單的SharedPreference。

回到主題。上代碼：

注意引用單元：

uses Androidapi.Helpers；

 1 procedure TForm_GetParas.getParas; 2 var  Prefs: JSharedPreferences; 3   Editor: JSharedPreferences_Editor; 4   I: Integer; 5 begin 6    Prefs := SharedActivity.getPreferences(TJActivity.JavaClass.MODE_PRIVATE); 7    Fv_usegname := JStringToString(Prefs.getString(StringToJString(‘Username‘),StringToJString(‘‘))); 8    Fv_pw       := JStringToString(Prefs.getString(StringToJString(‘UserPW‘),StringToJString(‘‘))); 9    Fv_ServerIP := JStringToString(Prefs.getString(StringToJString(‘ServerIP‘),StringToJString(‘127.0.0.1‘)));10    try11      Fv_ServerPort := inttostr(Prefs.getInt(StringToJString(‘ServerPort‘),8099));12    except13      Fv_ServerPort := ‘‘;14    end;15 end;

 

寫入參數：

 1 procedure TForm_GetParas.writerParas; 2 var  Prefs: JSharedPreferences; 3   Editor: JSharedPreferences_Editor; 4   I: Integer; 5 begin 6   Prefs := SharedActivity.getPreferences(TJActivity.JavaClass.MODE_PRIVATE); 7   Editor := Prefs.edit; 8   Editor.putString(StringToJString(‘ServerIP‘), StringToJString(Fv_ServerIP)); 9   Editor.putString(StringToJString(‘Username‘), StringToJString(Fv_usegname));10   Editor.putString(StringToJString(‘UserPW‘), StringToJString(Fv_pw));11   try12      i := strtoint(Fv_ServerPort);13      Editor.putInt(StringToJString(‘ServerPort‘), i);14   except15      Editor.putString(StringToJString(‘ServerPort‘), StringToJString(‘8099‘));16   end;17   Editor.commit;//   apply;18 end;

 

android的資料與訪問(2)-delphi xe7如何存取我的app配置參數檔案？