gospelpax.blogg.se - Delphi xe10 android or ios

Procedure Tfrm?.DisplayRationale(Sender: TObject const APermissions: TArray const APostRationaleProc: TProc) če ne bi dovolili permission bi moral showerror If (Length(AGrantResults) = 3) and (AGrantResults = TPermissionStatus.Granted) and (AGrantResults = TPermissionStatus.Granted) and (AGrantResults = TPermissionStatus.Granted) then Procedure Tfrm?.RequestPermissionsResult(Sender: TObject const APermissions: TArray const AGrantResults: TArray) PermissionsService.RequestPermissions(, RequestPermissionsResult, DisplayRationale) Procedure Tfrm?.FormShow(Sender: TObject) FReadStorage:=JStringToString(TJManifest_EXTERNAL_STORAGE) įWriteStorage:=JStringToString(TJManifest_EXTERNAL_STORAGE) įBlueTooth:=JStringToString(TJManifest_)