Олег Киреев

Уважаемый Андрей. Ваше: "маразм крепчает". Совсем не уместен. Прошу Вас в дальнейшем быть сдержанным. С Уважением.

Вопрос решён. Оказывается Access не знает команды SUBSTRING. Oracle знает такую команду, только немного изменённую SUBSTR. Я эту команду заменил на MID. И всё заработало.

Здравствуйте уважаемые. Прошу Вас подсказать почему возникает НЕОПОЗНАННАЯ ОШИБКА при sql запросе к файлу базы Access через ADOConnection. У меня IDE Delphi 10.3, OS Win 7, MSOffice 2014. Суть запроса следующий. В файле базы имеется поле с названием Индекс_уровня. Его тип String. В каких то строках этого поля имеются вот такие записи типа 2_1_012_012_000. Требуется занести в таблицу DBGrid все записи у которых сначала 012 а остальное отбросить. Сам запрос формирую так: Запрос:='SELECT * FROM Tab_Glavn where SUBSTRING(Индекс_уровня, 5, 3) = ' + НомерПозВголов; Где НомерПозВголов это переменная String в которую я заранее загружаю 012. Т.е. с 5-го символа длиной 3 символа строки сравнить с данными в переменной НомерПозВголов. Синтаксических ошибок не выдаёт. Просто в результате обработки исключения : Except on e: Exception do begin MessageDlg('Возникло исключение: '+e.Message, mtInformation,[mbYes],0); end; End; появляется сообщение: Возникло исключение: НЕОПОЗНАННАЯ ОШИБКА. СпасиБО.

Tumaso спасиБО.

Здравствуйте. Уважаемый Tumaso я изменил интерфейс. Как Вам ??

Да Вы правы. Я обязательно переделаю и заменю.

Здравствуйте. СпасиБО за замечание. На вкус и цвет товарищей нет.

Приложение под OS Win64 для хранение показателей анализов БАК, ОАК, ОАМ и показателей денситометрии в базе для всей семьи в течение своей жизни с возможностью просмотра в виде графика с минимальным и максимальными допустимыми показателями. А также напоминалка выполнения какого-то действия. Можно сохранять в файл bmp картинки графиков и сохранять копию файла базы. Распространяется полностью бесплатно. Разработал Олег Киреев. Республика Беларусь. Замечания и предложения прошу направлять на Viber или Telegram или WhatsApp по телефону +375 29 676 13 84. База учёта анализов v.2.rar База учёта анализов v3.rar База учёта анализов v13.rar

fmxtopdf спасиБО за ответ.

fmxtopdf здравствуйте. Напишите пожалуйста а где это может пригодится ??? Неужели на на маленьких экранах где установлена OS Android удобно работать с графикой ??? С Уважением.

Здравствуйте уважаемые. Win 10, Delphi 10.3. Поменял телефон на HONOR X7b. перестала запускаться отладка. При этом: 1.Приложение на телефоне удалено. 2.Режим отладки на телефоне включен. 3.Скриншоты на ошибки прилагаю. Прошу Вас подскажите что не так. Я вот не помню слово Activate должно быть ярким или нет как у меня ?? С Уважением.

Я использую компоненты бесплатной GLScene. Там проще всё.

Посмотрите видео примера работы. Видео_помощи.mp4 БД графиков v.4.rar БД графиков v.5.rar

СпасиБО. Это работает на Win 10. Пожалуйста напишите то же для Win 7. С Уважением.

Может так подойдёт? : function GetWMIObject(const objectName: String): IDispatch; var chEaten: Integer; BindCtx: IBindCtx; Moniker: IMoniker; begin OleCheck(CreateBindCtx(0, bindCtx)); OleCheck(MkParseDisplayName(BindCtx, StringToOleStr(objectName), chEaten, Moniker)); OleCheck(Moniker.BindToObject(BindCtx, nil, IDispatch, Result)); end; procedure TForm2.SpeedButton1Click(Sender: TObject); var objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; begin objWMIService := GetWMIObject('winmgmts:\\localhost\root\CIMV2'); colItems := objWMIService.ExecQuery('SELECT * FROM Win32_DesktopMonitor','WQL',0); oEnum := IUnknown(colItems._NewEnum) as IEnumVariant; if oEnum.Next(1, colItem, iValue) = 0 then begin Memo1.Lines.Add('Подпись '+(colItem.Caption)); Memo1.Lines.Add('Описание '+(colItem.Description)); Memo1.Lines.Add('Идентификатор устройства '+(colItem.DeviceID)); Memo1.Lines.Add('Manufacturer '+(colItem.MonitorManufacturer)); Memo1.Lines.Add('Тип '+(colItem.MonitorType)); end; end;

Здравствуйте уважаемый antigrav. Я пользовался встраиваемыми компонентами GLScene которые распространяются бесплатно. С Уважением.

Приложение под OS Win для расчёта нагрузок (сил, скоростей угловых и угловых ускорений) от работы карданного вала в зависимости от схемы и имеющихся данных. Перед началом работы необходимо посмотреть файл Help.mp4. Help.mp4 РасНагрКард.rar

ТДР v.60.rarПриложение под OS Win для расчёта тяговой динамики транспортного средства (автомобиля, автобуса, троллейбуса, электробуса) с графиками, диаграммами, выводом на печать и базой данных. Просто запустите файл exe. Перед началом пользования посмотрите файл Help.mp4. Приложение работает при 64-битном офисе. ТДР v.46.rar ТДР v.61.rar

Пожалуйста. На здоровье. Хорошо. С Уважением.

Здравствуйте. Пришлите мне на Viber (номер тел указан в приложении) схему и все размеры. Я Вам посчитаю. С Уважением.

Здравствуйте уважаемые. Приложение для OS Android, Delphi 10.3. Подскажите пожалуйста почему при компиляции нового или старого проекта стало появляться непонятное сообщение (см прилагаемый скрин). Может кто сталкивался с этой проблемой. СпасиБО.

Пожалуйста. Рад был помочь. С Уважением.

Здравствуйте. Прилагаю картинку как это сделать. С Уважением.

Здравствуйте Emma. По опыту лучше поместить компонент TChart на форму. Сразу настроить как надо. Там куча настроек. Думаю дело там. Сделать невидимым. А потом на кнопке Vasible Graphic делать видимым. С Уважением.