Code for getting permissions not working in Delphi 11

[Delpher2600 0]

Hello! 

Code, which i used for getting Android permissions, worked every time:

if not PermissionsService.IsPermissionGranted(JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)) then
PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.WRITE_EXTERNAL_STORAGE)],
procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
ShowMessage('Access granted')
else
ShowMessage('Access denied');
end);

But no now, when i installed Delphi 11 CE. Now, IDE highlights by red and write: 

E2250 There is no overloaded version of 'RequestPermissions' that can be called with these arguments at line 36

What is it and how fix it? 

 

[Dave Nottage 557]

This:

procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)

Needs to be:

procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)

I believe the change to the types was related to C++Builder compatibility

[David Heffernan 2345]

7 hours ago, Dave Nottage said:

I believe the change to the types was related to C++Builder compatibility

This looks like the tail wagging the dog. 

[Delpher2600 0]

17 hours ago, Dave Nottage said:

This:

procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)

Needs to be:

procedure(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray)

Yes, that's work! Thank you, sir!