GASCHE

Как-то в приведённом вами примере отличается от вашего результата .

Так тут про сервера вроде и не спрашивали, а работать с помощью SQL запросов удобно было и с базами FoxPro.

Нажмите nbInsert, введите EmpNo, нажмите nbPost, нажмите Edit Record, редактируйте и будет вам счастье. Нажмите кнопку nbDelete. А если серьёзно, то работать с базами без SQL я считаю моветоном.

Так вроде у вас всё в основном потоке выполняется, зачем его с самим собой синхронизировать?

А так не пробовали? SELECT * FROM PRODUKT WHERE (HOLS BETWEEN 20 AND 25) AND (ID_RAZDEL = 2)

WHERE ID_RAZDEL BETWEEN 40 AND 60

А что не так? Смотрим определение функции function ReadString(const Section, Ident, Default: string): string; override; Смотрим где определяется константа HKEY_LOCAL_MACHINE, она определена в файле Winapi.Windows.

Как все

А исключили это как? Что у вас вместо System.Android.Bluetooth.pas

Как то интересно вы ставите одно, а файлы берёте из другого, сравните со своим это из 11.3 {*******************************************************} { } { CodeGear Delphi Runtime Library } { Copyright(c) 2014-2023 Embarcadero Technologies, Inc. } { All rights reserved } { } {*******************************************************} unit System.Android.Bluetooth; procedure InternalProcessMessages; begin TThread.Sleep(1); end;

JEnvironmentClass = interface(JObjectClass) ... {class} function isExternalStorageManager: Boolean; cdecl; overload; end; А эта не подходит?

unit Androidapi.JNI.Os; TJEnvironment; unit Androidapi.JNI.Provider; TJSettings;

lMaxKadr.Text := 'А так' + sLineBreak + 'Что мешает?';

Читаете файл, разбираете заголовок файла, определяете позицию начала данных, обрабатываете данные так как вам нужно .

А так не пробовали function TForm4.FDnnection(SQLwe:string): string; begin FDConnection1.Params.DriverID:='MSAcc'; FDConnection1.Params.Database:=Form2.PathBaseEdit.Text; FDConnection1.Connected:=true; FDQuery1.SQL.Add(SQLwe); FDQuery1.Active:=true; end;

А чем не устраивает пример приведенный в https://fire-monkey.ru/topic/853-универсальный-способ-хранения-настроек/#comment-3657

А так не пробовали? constructor TMyClass.Create(pos: String = '');

По таймеру запускаете поток, в процедуре procedure TThreadRenew.Execute; производите расчет, когда значение внутри измениться на 1 синхронизируйтесь с основным потоком и меняете Label1.Text и даже "если вычисления идут час", то через час будет вам счастье

for i := 0 to 9 do begin уберите и будет вам счастье

Тогда выложите здесь исходники с тем что вы здесь написали и скомпилированный вами код, зачем гадать на гуще.

Чтоб он писал десятками процентов надо чтоб pc изменялось по 10, смотрите кто у вас его меняет. У меня ваш код в Windows меняется по 1 проценту.

А так ExtractFilePath(ParamStr(0) ) не пробовали?

Ищите в интернете Copy и LastDelimiter.

Одновременно заполняйте поле Tag ID этого FIO.

Основной задачей второго издания данной книги является актуализация представленных примеров относительно текущей версии Embarcadero RAD Studio/Delphi 10.3.2 Rio по сравнению с той, которая использовалась при подготовки первого варианта. Материал книги дополнился новыми возможностями и полезными советами, а также рекомендациями, полученными от читателей первой версии.