1
Presentaciones / Re:Saludos!
« Último mensaje por Marian mayo 08, 2022, 06:39:34 pm »Hola y bienvenido!!!
procedure TFormMain.RequestPermissions;
begin
{$IFDEF ANDROID}
FPermission_SEND := JStringToString(TJManifest_permission.JavaClass.SEND_SMS);
FPermission_READ := JStringToString(TJManifest_permission.JavaClass.READ_SMS);
FPermission_RECEIVE := JStringToString(TJManifest_permission.JavaClass.RECEIVE_SMS);
PermissionsService.RequestPermissions([FPermission_SEND, FPermission_READ, FPermission_RECEIVE], RequestResult, DisplayRationale)
{$ENDIF}
end;
procedure TFormMain.RequestResult(const APermissions: TClassicStringDynArray; const AGrantResults: TClassicPermissionStatusDynArray);
begin
if (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) and (AGrantResults[2] = TPermissionStatus.Granted) then
begin
end;
end;
Uses System.RegularExpressions
function NumbersOnly(const value: string): string;
begin
Result := TRegEx.Replace(value, '[^0-9]', '', [roIgnoreCase, roMultiLine]);
end;