diff --git a/.vscode/settings.json b/.vscode/settings.json new file mode 100644 index 0000000..1fc67b6 --- /dev/null +++ b/.vscode/settings.json @@ -0,0 +1,3 @@ +{ + "delphiLsp.settingsFile": "file:///c%3A/Componentes/Mobile%20Permissions/Package/MobilePermissions.delphilsp.json" +} \ No newline at end of file diff --git a/Source/MobilePermissions.Permissions.Android.pas b/Source/MobilePermissions.Permissions.Android.pas index 6b463ae..d7eaf88 100644 --- a/Source/MobilePermissions.Permissions.Android.pas +++ b/Source/MobilePermissions.Permissions.Android.pas @@ -5,10 +5,10 @@ interface uses {$IF CompilerVersion >= 33.0} System.Permissions, - {$ENDIF} + {$IFEND} {$IF CompilerVersion >= 35.0} System.Types, - {$ENDIF} + {$IFEND} {$IFDEF ANDROID} Androidapi.Helpers, Androidapi.JNI.Os, @@ -29,7 +29,7 @@ interface {$ELSE} TPermissions = System.TArray; TPermissionsStatus = System.TArray; - {$ENDIF} + {$IFEND} TMobilePermissionsAndroid = class(TMobilePermissionsBase, IMobilePermissions) private @@ -91,7 +91,7 @@ function TMobilePermissionsAndroid.Request(Permissions: TArray): IMobile {$IF CompilerVersion >= 33.0} if (FAndroidVersion > 6) then PermissionsService.RequestPermissions(Permissions, RequestPermissionsResultProc, nil); - {$ENDIF} + {$IFEND} end; procedure TMobilePermissionsAndroid.RequestPermissionsResultProc(const APermissions: TPermissions; const AGrantResults: TPermissionsStatus);