-
Постов
208 -
Зарегистрирован
-
Посещение
-
Победитель дней
12
Сообщения, опубликованные GASCHE
-
-
56 минут назад, chaplin.u@gmail.com сказал:
но даже исключив этот файл
А исключили это как? Что у вас вместо System.Android.Bluetooth.pas
-
20 часов назад, chaplin.u@gmail.com сказал:
Тогда я поставил 11.3 и Андроид
Как то интересно вы ставите одно, а файлы берёте из другого, сравните со своим это из 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;
-
12 часов назад, MaratBest сказал:
в Delphi нет функцииTJEnvironment.JavaClass.isExternalStorageManager
JEnvironmentClass = interface(JObjectClass)
...
{class} function isExternalStorageManager: Boolean; cdecl; overload;
end;
А эта не подходит? -
1 час назад, MaratBest сказал:
где можно раздобыть TJEnvironment и TJSettings из Rad Studio?
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
СпойлерTSettings = class private fname: string; fpass : string; public property name: string read fname write fname; property pass: string read fass write fpass; end; // вытягиваешь json-строку из файла Settings:= TJson.JsonToObject<TSettings >( 'строка с json, которая из файла' ); // что-то поменял s:= TJson.ObjectToJsonString( Settings ); // сохранил json-строку в файл
-
А так не пробовали?
constructor TMyClass.Create(pos: String = '');
-
В 29.12.2021 в 15:02, Андрей Рулин сказал:
Вот такой код работает в Windows. Но в андройде , увы и ах...
По таймеру запускаете поток, в процедуре
procedure TThreadRenew.Execute;
производите расчет, когда значение внутри измениться на 1 синхронизируйтесь с основным потоком и меняете
Label1.Text
и даже "если вычисления идут час", то через час будет вам счастье
-
2 часа назад, Андрей Рулин сказал:
По 10% прибавляет
for i := 0 to 9 do begin
уберите и будет вам счастье
-
32 минуты назад, Андрей Рулин сказал:
А у меня изменяется по 10%
Тогда выложите здесь исходники с тем что вы здесь написали и скомпилированный вами код, зачем гадать на гуще.
-
1 час назад, Андрей Рулин сказал:
Он даже в Windows будет обновляться по десяткам процентов
Чтоб он писал десятками процентов надо чтоб pc изменялось по 10, смотрите кто у вас его меняет. У меня ваш код в Windows меняется по 1 проценту.
-
А так ExtractFilePath(ParamStr(0) ) не пробовали?
-
4 часа назад, Олег Киреев сказал:
дайте пожалуйста ссылку
Ищите в интернете Copy и LastDelimiter.
-
В 30.10.2020 в 23:11, striker сказал:
Я заполняю Comboboх строчками из поле FIO
Одновременно заполняйте поле Tag ID этого FIO.
-
Основной задачей второго издания данной книги является актуализация представленных примеров относительно текущей версии Embarcadero RAD Studio/Delphi 10.3.2 Rio по сравнению с той, которая использовалась при подготовки первого варианта. Материал книги дополнился новыми возможностями и полезными советами, а также рекомендациями, полученными от читателей первой версии.
-
Не работает
Непрочитанный контент, Компактно!
-
15 часов назад, Александр2010 сказал:
Можешь показать на этом примере как что отсюда достать ?
Подставляете туда свой JSON и получаете готовый результат.
-
-
Я на панель накладывал TRectangle и рисовал на последнем.
-
52 минуты назад, Razmir сказал:
сетка рисуется и на них
Попробуйте Width и Heigh взять из координаты ARect события OnPainting, мне помогло.
PROCEDURE pbGraphPainting( Sender : TObject; Canvas : TCanvas; const ARect : TRectF );
...
_rGraph.OnPainting := pbGraphPainting;
-
22 часа назад, Dmitry Stolyarov сказал:
собрал в отдельный проект с указанным кодом и в итоге совсем картинки не грузятся...
Грузятся если заменить if (FListViewUpdating) or (AAsyncResult.IsCancelled) then на if (FListViewUpdating) or (AsyncResult.IsCancelled) then.
AAsyncResult у меня NIL
-
Google Play and Delphi
в Публикация приложения в Google Play
Опубликовано
Как все