Составитель Переключатель Для Настольного Моста (windows Application Store)

[Lomanu4]

Для магазина версии, база данных придется% AppData%.

{$ IFDEF MSWindows}
  dbPfad: = ExtractFileDir (ParamStr (0)) + + PathDelim ' berater.sqlite ';
  {$ ENDIF}
  {$ IFDEF OSX}
  dbPfad: = + GetHomePath PathDelim + ' Документы ' + PathDelim + ' berater.sqlite ';
  {$ ENDIF}
  {$ IF Defined (IOS)}
  dbPfad: = + GetHomePath PathDelim + ' Документы ' + PathDelim + ' berater2017.sqlite ';
  {$ ENDIF}
  {$ IF Defined (Android)}
  dbPfad: = + GetHomePath PathDelim + ' berater.sqlite ';
  {$ ENDIF}