Size: a a a

2021 December 14

ПП

Пушистое Пельмешко... in Delphi & Lazarus
и вообще для такого функционала правильным делать в базовом классе именно свойство в протектед секции, а в наследнике просто преобьявить это свойство в паблике - тогда и не будет таких костылей
источник

ED

Ed Doc in Delphi & Lazarus
по феншую приватные поля можно с префиксом F- писать (если, конечно, у тебя не геттер с какой-нибудь сложной логикой). И путаницы не будет.
Кстати, у Лазаря это искаропки сделано
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Базовая корова не моя, а унигуишная)
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
  XMLDocument1 := TXMLDocument.Create(Application);
 XMLDocument1.LoadFromFile(OpenDialog1.FileName);
 XMLDocument1.Active := True;
 network := XMLDocument1.DocumentElement;
 for i:=0 to network.ChildNodes['network'].ChildNodes.Count-1 do
   begin
   if network.ChildNodes['network'].ChildNodes['measuredev'].ChildNodes['datapoint'].ChildNodes['storagenr'].Text = '1'
     then
        List.Append(network.ChildNodes['network'].ChildNodes['measuredev'].ChildNodes['datapoint'].ChildNodes['value'].Text);
почему может if не отрабатывать ? Вроде количество возвращает если заместо ,text поставить .count
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Пока другие грамотеи не набежали ) надо бы переменную завести и в нее network.ChildNodes['network'] присвоить, хоть текст понятней будет
источник

ED

Ed Doc in Delphi & Lazarus
Так, теперь всем молчим. Пусть Катюха за всех отдувается, раз она такая компетентная 😂
источник

ПП

Пушистое Пельмешко... in Delphi & Lazarus
😂👍
источник

АВ

Александр В... in Delphi & Lazarus
Потому что в поле значение не сходится с проверяемым. Мож там пробел или еще что
источник

КС

Катерина Свиридова... in Delphi & Lazarus
))) Да там похоже цикл по одному и может по-лишнему, а дальше ноды по другому цепляются
источник

ED

Ed Doc in Delphi & Lazarus
Лучше проверяй, чтобы твой  network <> nil был, через Assign
источник

ED

Ed Doc in Delphi & Lazarus
Я обычно не "ветвлю" сразу несколько узлов, а проверяю их по одному, типа
https://pastebin.com/B79UCWth
источник

N

Nik in Delphi & Lazarus
В public напиши property RecordNo;
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
Почему-то нули одни(
источник

ИФ

Имя Фамилия... in Delphi & Lazarus
Он почему-то значение тока первой ноды берет
источник

ED

Ed Doc in Delphi & Lazarus
значит не находит один из "промежуточных" childnode скорее всего

Пройдись отладчиком
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Антисоветчик )) Я тоже иногда через строку читаю. function RecordNo: integer; - функция в базовом)
источник

ED

Ed Doc in Delphi & Lazarus
Переименуй в aRecordNo, делов-то
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Уже в RecNo. Коротенько и со вкусом)
источник

ED

Ed Doc in Delphi & Lazarus
А потом окажется, что это - свойство датасета 😂
источник

КС

Катерина Свиридова... in Delphi & Lazarus
Знаю-знаю, у меня грид, вернее TUniDBTreeGrid
источник