Вы не там ифдефы пишете. Не нужно здесь много модулей.
Для примера. (емнип - автор @Равиль Зарипов (ZuBy) ). Единая точка входа в функцию и отличаются только внутренности.
function OpenURL(const URL: string; const DisplayError: Boolean = False): Boolean;
var
{$IFDEF ANDROID}
Intent: JIntent;
{$ENDIF}
{$IFDEF IOS}
NSU: NSUrl;
{$ENDIF}
{$IFDEF MSWINDOWS}
Res: HINST;
{$ENDIF}
begin
{$IFDEF ANDROID}
// There may be an issue with the geo: prefix and URLEncode.
// will need to research
Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,
TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(URL))));
try
TAndroidHelper.Activity.startActivity(Intent);
exit(true);
except
on e: Exception do
begin
if DisplayError then
TDialog.ShowMessage('Error: ' + e.Message);
exit(False);
end;
end;
{$ENDIF}
{$IFDEF IOS}
// iOS doesn't like spaces, so URL encode is important.
NSU := StrToNSUrl(URL);
if SharedApplication.canOpenURL(NSU) then
exit(SharedApplication.OpenURL(NSU))
else
begin
if DisplayError then
TDialog.ShowMessage('Error: Opening "' + URL + '" not supported.');
exit(False);
end;
{$ENDIF}
{$IFDEF MSWINDOWS}
Res := ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOW);
Result := Res > 32;
{$ENDIF}
end;
И теперь "снаружи" этой функции вам без разницы, под какую платформу идет сборка. В любом случае вы пишете "OpenURL('http://blablabla.net');". Безо всяких IFDEF.
В общем, оказалось, что "'CharInSet' is deprecated: 'Use TCharHelper functionality'"
Правильно вот так:
uses System.Character;
...
...
for ch in s do
if ch.IsInArray(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']) then
result := result + ch;
или "IsDigit" если нужны только цифры
for ch in s do
if ch.IsDigit then
result := result + ch;
http://docwiki.embarcadero.com/Libraries/XE7/en/System.Character.IsDigit
Попробуйте извлечь файл .so из вашего apk и добавить его в папку /system/lib/. Ну и закинуть apk файл в папку /system/priv-app/.
А вообще вам не сюда, вам на 4pda или xda-developers (англ.)
На этом форуме разработчики софта, а не спецы по модификации прошивок.