Перейти к содержанию

Олег Киреев

Пользователи
  • Активность

    117
  • Зарегистрирован

  • Посещение

  • Победитель дней

    5

Олег Киреев стал победителем дня 31 августа 2020

Олег Киреев имел наиболее популярный контент!

Информация о Олег Киреев

  • Звание
    Продвинутый пользователь
  • День рождения 07.02.1966

Информация

  • Пол
    Мужчина
  • Город
    Минск
  • Интересы
    Прогулки на природе, велопрогулки, плавание, Delphi.

Посетители профиля

6 527 просмотров профиля
  1. Файл Posix.SysStat.dcu у меня лежит в C:\Program Files (x86)\Embarcadero\Studio\20.0\lib\iossimulator\debug. Файл Posix.SysStat.pas у меня лежит в C:\Program Files (x86)\Embarcadero\Studio\20.0\source\rtl\posix. Оба пути прописаны в библиотеке. В коде после implementation прописываю и так: Uses Posix.SysStat и так Uses Posix.SysStat in 'posix\Posix.SysStat.pas'; всё равно "ругается" что cannot resolve unit filename Posix.SysStat at line... Что делать? С Уважением. Олег.
  2. Billy Bones Здравствуйте. Почему у меня при прописывании Uses Posix.SysStat RAD Studio 10.3 "ругается" что cannot resolve unit filename Posix.SysStat at line...???? Хотя в библиотеке путь source\rtl\posix прописан.
  3. Здравствуйте Уважаемые. РадСтудия 10.3 Рио, ОС Виндовс 7. Прошу помощи в следующем. Переделываю старое приложение для ОСВиндовс с БД МСАкцесс 2010 сделанного ещё на Делфи7 в Делфи 10.3 Рио. При SQL запросе в новом приложении не происходит поиска старых данных. Но если ввести новые данные в новом приложении поиск осуществляется нормально. Похоже что то с Юникодами в МСАкцесс??? Или что другое не знаю. Может кто сталкивался с такой проблемой? Япытался сделать так: https://coderoad.ru/5222705/Как-преобразовать-кодировку-базы-данных-MS-Access-в-UTF-8. Но не помогло. С Уважением.
  4. Здравствуйте. Я сначала становлюсь на нужную строку вот так: ADOQuery1.Locate('Nomer',bsSkinEdit1.Text,[loPartialKey, loCaseInsensitive]); Где Nomer - имя поля а bsSkinEdit1.Text искомое значение поля. С Уважением.
  5. Здравствуйте дайте пожалуйста ссылку на расшифровку "Copy(path,0,lastDelimiter('/',path)-1);" С Уважением. Олег.
  6. Так у Вас в переменной cpO Х=0 и Y=0. Предлагаю почитать здесь: https://progi.pro/delphi-memo-pochemu-kursor-vsegda-idet-vlevo-10314416 С Уважением Олег.
  7. У меня ругается на TCaretPosition. Наверное не хватает юнита. Какого?
  8. Можно и на кнопку: procedure TForm1.Button1Click(Sender: TObject); begin TabControl1.Width := TabControl1.Width+200; Memo1.WordWrap := false; Memo1.WordWrap := true; end;
  9. У меня помогло так: procedure TForm1.FormResize(Sender: TObject); begin Memo1.WordWrap := false; Memo1.WordWrap := true; end; С Уважением Олег.
  10. Здравствуйте. У меня она есть. Файл формата pdf 31 мегабайт. Я дополнил его повставлял закладки по главам для быстрого поиска. У меня впечатления самые лучшие. СпасиБО Всеволоду Леонову. Могу прислать на вашу личную почту. С Уважением. Олег.
  11. Здравствуйте уважаемый Azaz. 1. Я извиняюсь но уважаемый Администратор просит в правилах: " 2.2. Каким должен быть текст вопроса? Текст вопроса нужно начать с указания используемой версии RAD Studio, Версии ОС и модель устройства (если речь идет о мобильной разработке)" 2. У компонента TListBox есть своё свойство-ШоуСкроллБарс. Достаточно поставить птичку. С Уважением. Олег.
  12. СпасиБО за ответ. Сообщите пожалуйста когда будет готов. С Уважением. Олег.
  13. Елена. Существует ли FastReport для разработки приложений для OS Android? С Уважением. Олег.
  14. Здравствуйте Уважаемые. Подскажите пожалуйста как устранить ошибку (скрин в приложении) на строке TNetworkState.Create в приложении для OS Android в Delphi 10.3. на телефоне 10-й Андроид. Процедура такая: //Поделиться сохранённым файлом procedure TForm_DB_BOKA_Glavn.ButtonПоделитьсяClick(Sender: TObject); var NS: TNetworkState; begin NS := TNetworkState.Create; if not NS.IsConnected then begin ShowMessage('Нет подключения к интернету.'); Abort; end else begin if NS.IsWifiConnected then ShowMessage('Подключено через WiFi'); if NS.IsMobileConnected then ShowMessage('Подключено через WWAN'); if FileExists(TPath.GetDownloadsPath+'/Модель_'+ComboBoxВсеМодели.Selected.Text+'.txt') then begin ShareFile(TPath.GetDownloadsPath+'/Model_'+ComboBoxВсеМодели.Selected.Text+'.txt', 'Это файл карточки модели '++ComboBoxВсеМодели.Selected.Text); Application.ProcessMessages; end else ShowMessage('Файл '+TPath.GetDownloadsPath+'/Model_'+ComboBoxВсеМодели.Selected.Text+'.txt'+' не найден.'); end; end; Процедура ShareFile такая: procedure ShareFile(aFileName, aComment : String); {$IFDEF ANDROID} var Intent : JIntent; uri : Jnet_Uri; AttachmentFile: JFile; S : String; {$ENDIF ANDROID} begin {$IFDEF ANDROID} Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_SEND); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); S:=TPath.GetFileName(aFileName); Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(aComment)); Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(aComment)); AttachmentFile := TJFile.JavaClass.init(StringToJString(aFileName)); Uri := TJnet_Uri.JavaClass.fromFile(AttachmentFile); Intent.putExtra(TJIntent.JavaClass.EXTRA_STREAM, TJParcelable.Wrap((Uri as ILocalObject).GetObjectID)); Intent.setType(StringToJString('text/plain')); // Intent.setDataAndType(StrToJURI('file:' + TPath.Combine(TPath.GetSharedDownloadsPath, 'picture.png')), StringToJString ('image/png')); SharedActivity.startActivity(Intent); {$ENDIF ANDROID} end; При этом разрешение к памяти у телефона есть на это приложение. Интересно что в другом моём приложении где те же процедуры всё работает. Но перед тем как это 2-е приложение я запустил после обновления 9-го Андроида на 10-й система спросила сама разрешения а в этом нет. Я вручную разрешал. Может тут дело не в разрешениях???
×
×
  • Создать...