Size: a a a

2021 December 14

ED

Ed Doc in Delphi & Lazarus
В том числе и в модифицирующих запросах
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
Народ
    for measuredev in root.findall('network/measuredev'):
           row = []
           for datapoint in measuredev.findall('datapoint'):
               if datapoint.find('storagenr').text == '1':
                   value = datapoint.find('value').text
                   row.append(value)
               #csvwriter.writerow(row)
               #print(row)
           for fixeddataheader in measuredev.findall('fixeddataheader'):
               identnr = fixeddataheader.find('identnr').text
               row.append(identnr)
           csvwriter.writerow(row)

Такой код сложно на Delphi перенести ?
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
На python как-то легче набросать было, а теперь как перенести в Delphi хз))
источник

А

А in Delphi & Lazarus
т.е. код не понятно что делает и на паскале его описать не представляется возможным?
источник

АВ

Александр В... in Delphi & Lazarus
Напоминает какой-то парсер, толи xml толи html
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
Нет он xml распарсивает  счетчиков тепла, 1 внутренний фор собирает показание и дату, 2 номер
источник

АВ

Александр В... in Delphi & Lazarus
Ну теперь тоже самое, только delphi парсером. Хочешь sax, хочешь dom
источник

HG

Hemul GM in Delphi & Lazarus
А что в нём особенного?
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
Я не работал просто с парсингом xml в Delphi пытаюсь понять с какой либы лучше начать.
источник

АВ

Александр В... in Delphi & Lazarus
Со справки к TXMLDocument
источник

HG

Hemul GM in Delphi & Lazarus
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
for measuredev in XmlDoc.findall('network/measuredev') do
    begin
       for datapoint in measuredev.findall('datapoint')do
         begin
               if datapoint.find('storagenr').text ='1' then
                   begin
                   value := datapoint.find('value').text;
                   List.append(value);
                   end;
         end;
   end;

[DCC Error] uMAIN.pas(480): E2430 for-in statement cannot operate on collection type 'Variant' чем можно заменить Variant ? Просто сделал  measuredev OleVariant
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Проще нужно быть) Что возвращает findall?
источник

ED

Ed Doc in Delphi & Lazarus
По логике должен возвращать ноду. Имхо, товарищ пытается натянуть сову на глобус 😊
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
По идеи список возвращает
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Список чего? for i:=0 to count-1 do )))
источник

ED

Ed Doc in Delphi & Lazarus
Тебе же выше хемул ответил
источник

HG

Hemul GM in Delphi & Lazarus
Я просто переписал код 😄 Я не знаю что у него там root
источник

HG

Hemul GM in Delphi & Lazarus
И что возвращает
источник

HG

Hemul GM in Delphi & Lazarus
Там уже по факту смотреть надо
источник