Zugegebenermaßen verstehe ich nix von dem Thema, aber wäre die Nutzung einer Stringliste nicht einfacher? Sowas in der Art?
Delphi-Quellcode:
function isFireOS():boolean;
var
sl : TStringList;
begin
{$IFDEF ANDROID}
sl := TStringList.Create;
sl.LoadFromFile('Fire-Device-Kenner.txt');
Result := sl.IndexOf(JStringToString(TJBuild.JavaClass.MODEL)) > -1;
sl.Free;
{$ELSE}
Result:=false;
{$ENDIF}
end
Bei Änderungen wird der Datei 'ne neue Zeile "verpasst" und gut is'?