Номер версии андроид

[Ingalime]

Здравствуйте.

Подскажите пожалуйста как правильно написать код в скобках для мобильной платформы:

if (если версия андроид меньше или равно 9) then

Спасибо.

[Tumaso]

Как вариант:

{$IFDEF ANDROID}
  if TJBuild_VERSION.JavaClass.SDK_INT <= 28 then
  begin
    { требуемый код }
  end;
{$ENDIF}

 

[slav_z]

if TOSVersion.Check(8,0) then  // Версия 8 и выше

[Ingalime]

Что-то не получается. С паскалем у меня пока не очень... У меня есть код который должен выполняться только если версия андроид равно 9 или ниже. Дело в том, что на 10 андроиде приложение сразу падает. Видимо не хочет запускать службу. Проверить возможности в отладке нет, из-за отсутствия устройства с андроид 10. Поэтому пытаюсь не запускать службу на андроид 10 и выше.

//FormCreate 
 try
     if FService = Nil Then Begin
        FService := TLocalServiceConnection.Create;
        FService.StartService('serPublic');
      end;
  except
       Exit;
  end;

Пытаюсь обрамить этот код условием:

if TJBuild_VERSION.JavaClass.SDK_INT <= 28 then

Подчеркивает красным TJBuild_VERSION. Я так понимаю надо что-то добавить в uses.

Подскажите, пожалуйста, как правильно обрамить этот код условием if TJBuild_VERSION.JavaClass.SDK_INT <= 28 

Спасибо.

[Tumaso]

да, в uses для андроид нужно добавить модули Androidapi.JNI.Os и Androidapi.JNIBri

  uses
    ... Androidapi.JNI.Os, Androidapi.JNIBridge ...

  if TJBuild_VERSION.JavaClass.SDK_INT <= 28 then
  begin
    try
      if not Assigned(FService) then
      begin
        FService := TLocalServiceConnection.Create;
        FService.StartService('serPublic');
      end;
    except
      // что нибудь делаем
    end;  
  end;

 

Изменено 14 июня, 2021 пользователем Tumaso

[A_l_ex]

Возможно кому-то будет нужно: 

C:\Users\Public\Documents\Embarcadero\Studio\(версия студии)\Samples\Object Pascal\Mobile Snippets\DeviceInfo

Хорошее решение плясать не от SDK а от OSVersion.