В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Delphi & Lazarus

474 membersпожаловаться на группу
2020 October 03

V

Vasiliy in Delphi & Lazarus
Шляпник
🤷‍♂️ минздрав, скорее всего, требуе там порой такие затейники сидят творческие :)) поэтому как у программистов водится, сказали надо - делаем :)
Роспотреб требует, да и я, не программист а просто инженер пищевого производства ))
Делфи-хобби так сказать было. Вот и решил кандидатскую свою по этому поводу и писать. И сделал чудо, сейчас его и допиливать приходится
источник
17:27пожаловаться#1

AK

Andy Korg in Delphi & Lazarus
Vasiliy
Блин, да вроде все просто, но как это в телефон переложить... Хз
https://www.google.ru/search?hl=ru&q=%D0%B1%D0%BE%D0%BB%D1%8C%D1%88%D0%B8%D0%B5+%D1%82%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D1%8B+%D0%BD%D0%B0+%D0%BC%D0%BE%D0%B1%D0%B8%D0%BB%D1%8C%D0%BD%D0%BE%D0%BC&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=
www.google.ru
большие таблицы на мобильном - Поиск в Google
источник
17:47пожаловаться#2
2020 October 05

М

МихаИл in Delphi & Lazarus
Добрый день, коллеги!
и вновь обращаюсь с вопросом.
проблема следующая:
разгребаю json и его кусок выгребаю этим кодом:
fuel_begin_i:= (v_proff_i.GetValue('fuel_begin') as TJSONString).Value;
fuel_end_i:= (v_proff_i.GetValue('fuel_end') as TJSONString).Value;
но

бывает иногда то приходит пустое поле и мне выдает ошибку
(см скрин)
источник
09:59пожаловаться#3

М

МихаИл in Delphi & Lazarus
чем можно одолеть сей недуг?
источник
10:00пожаловаться#4

AK

Alexey Kulakov in Delphi & Lazarus
проверять на nil или в try-except засовывать?
источник
10:00пожаловаться#5

AK

Alexey Kulakov in Delphi & Lazarus
получается же, что ты nil преобразуешь в класс, для которого запрашиваешь ещё свойство класса
источник
10:01пожаловаться#6

М

МихаИл in Delphi & Lazarus
я так и понял, а как проверять на nil?
источник
10:03пожаловаться#7

AK

Alexey Kulakov in Delphi & Lazarus
ну, что-то типа
lptr:=v_proff_i.GetValue('fuel_begin');
if lptr<>nil then
fuel_begin_i:= (lptr as TJSONString).Value
else
fuel_begin_i:= '';
источник
10:05пожаловаться#8

AK

Alexey Kulakov in Delphi & Lazarus
наверное, такого типа. или аналогично
источник
10:05пожаловаться#9

М

МихаИл in Delphi & Lazarus
ок, спасибо, пробую
источник
10:06пожаловаться#10

VA

Viktor Akselrod in Delphi & Lazarus
МихаИл
Добрый день, коллеги!
и вновь обращаюсь с вопросом.
проблема следующая:
разгребаю json и его кусок выгребаю этим кодом:
fuel_begin_i:= (v_proff_i.GetValue('fuel_begin') as TJSONString).Value;
fuel_end_i:= (v_proff_i.GetValue('fuel_end') as TJSONString).Value;
но

бывает иногда то приходит пустое поле и мне выдает ошибку
(см скрин)
http://docwiki.embarcadero.com/Libraries/Rio/en/System.JSON.TJSONValue.TryGetValue
источник
10:07пожаловаться#11

AK

Alexey Kulakov in Delphi & Lazarus
вот, тоже решение
источник
10:07пожаловаться#12

Ш

Шляпник in Delphi & Lazarus
угу, только надо продумать ответ программы на ненахождение значения, так как это может быть признаком расхождения версий структур между сервисом и принимающей стороной
источник
10:11пожаловаться#13

М

МихаИл in Delphi & Lazarus
Alexey Kulakov
ну, что-то типа
lptr:=v_proff_i.GetValue('fuel_begin');
if lptr<>nil then
fuel_begin_i:= (lptr as TJSONString).Value
else
fuel_begin_i:= '';
а какой тип переменной у
lptr
?
источник
10:13пожаловаться#14

VA

Viktor Akselrod in Delphi & Lazarus
МихаИл
а какой тип переменной у
lptr
?
смотри выше ссылку на нормальное стандартное решение без промежуточных переменных
источник
10:16пожаловаться#15

М

МихаИл in Delphi & Lazarus
Alexey Kulakov
ну, что-то типа
lptr:=v_proff_i.GetValue('fuel_begin');
if lptr<>nil then
fuel_begin_i:= (lptr as TJSONString).Value
else
fuel_begin_i:= '';
попробовал твое предложение
str111:=v_proff_i.GetValue('fuel_begin');
                           if str111<>nil then
                           fuel_begin_i:= (str111 as TJSONString).Value
                           else
                           fuel_begin_i:= '';
источник
12:17пожаловаться#16

М

МихаИл in Delphi & Lazarus
ругается на это
источник
12:18пожаловаться#17

AK

Alexey Kulakov in Delphi & Lazarus
ну, тебе и попроще предлагали :) в одну строку (это я люблю вручную контролировать некоторые вещи)
источник
12:18пожаловаться#18

AK

Alexey Kulakov in Delphi & Lazarus
ну, пишет же, что ты пытаешься переменную преобразовать в класс, к которому она не относится
источник
12:19пожаловаться#19

AK

Alexey Kulakov in Delphi & Lazarus
можно принудить, конечно, если не (str111 as TJSONString)  писать, а TJSONString(str111).Value, но это всё равно не совсем правильно будет
источник
12:20пожаловаться#20