Лидеры

если вам не понятен этот код For i:=0 to List.Count-1 do with List.Items[i] do begin Position.Y:=Position.Y+0.5; end; то его можно переписать следующим образом for i:=0 to List.Count-1 do List.Items[i].Position.Y := List.Items[i].Position.Y+0.5; UPDATE: http://delphicode.org/delphi/with.htm

Удалось проверить. Итог: Демка - C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\App Tethering\MediaPlayer НЕ РАБОТАЕТ! Демка - C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\RTL\Tethering\MediaPlayer РАБОТАЕТ! (сейчас вот сижу играюсь, с телефона управляю этим плеером, через BlueTooth) Ап. с телефона удалось законектиться и к первой демке, но приложение на телефоне из второй демки. Супер Ап. Мой пример из статьи App Tethering #3: Передача и получение данных отлично и с первого раза заработал. Добавил два разрешения для блютуса в мобильном приложении и выставил TetheringManager.AllowedAdapters = Bluetooth; в обоих проектах, всё. При тестировании, оба устройства были видимыми. p.s. Не знаю, почему (частично) не завелась первая демка, выяснять не хочу, т.к. остальные примеры рабочие...

//uses System.Threading; var aData: string; begin TTask.Run( procedure begin aData := idHttp1.Get('url'); // выполняем загрузку файла из интернета; TThread.Synchronize(TThread.CurrentThread, procedure begin Memo1.Text := aData; // выполняем действия связанные с визуальными компонентами end); end); end;

Не буду разводить холивар, тем более что with или не with имеет кучу обсуждений, в которых высказывались и именитые разработчики. Скажем так - использование with делает код не явным (например - в классе, где используется эта конструкция с with тоже есть метод SaveToFile или свойство Text) и плохо читается сторонним разработчиком. Но - каждый решает для себя.

ну почему сразу не используйте, нужно просто знать как с этим работать. например вот в таких конструкциях очень удобно, не требуется заводить переменную with TStringList.Create do begin Text := 'ТЕКСТ'; SaveToFile('c:\file.txt'); Free; end;

А почему нет? Это жа iOs, а не андроид. Там, если завелось для одного, для других будет ок!

AppTethering в эбаркадере написан по быстрому на коленке, через блютус почти не работает, в одном проекте удалось заставить работать с вероятностью один к десяти, т.е. одна успешная передача при десяти попытках. wifi тоже глючит, особенно автоконнект, при ручном связывании и костылях работает вполне прилично.

procedure TForm6.Button1Click(Sender: TObject); // uses System.IOUtils, Androidapi.Helpers, Androidapi.Jni.JavaTypes; var jF: JFile; begin jF := TJFile.JavaClass.init(StringToJString(Tpath.GetDownloadsPath)); if jF.isDirectory then ShowMessage(IntToStr(jF.getFreeSpace)); end;

FDConnection1 := TFDConnection.Create(Self); FDPhysSQLiteDriverLink1 := TFDPhysSQLiteDriverLink.Create(Self); FDGUIxWaitCursor1 := TFDGUIxWaitCursor.Create(Self); FDGUIxWaitCursor1.ScreenCursor := gcrSQLWait; FDGUIxWaitCursor1.Provider := 'FMX'; FDConnection1.DriverName := 'SQLite'; FDConnection1.Params.Values['Database'] := TPath.GetDocumentsPath + PathDelim + 'test.db'; FDConnection1.LoginPrompt := false; FDConnection1.Connected := true; if FDConnection1.Connected then ShowMessage('подключились'); Пример подключения в runtime. Компоненты на форму можно "не садить"