Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите портировать код из Builder`a в Delphi 
V
    Опции темы
-Сергей-
Дата 29.10.2013, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1
Всем Доброго дня!
вот собственно код:
Код

void PostProcessNode(_di_IXMLNode node, TTreeNode *tree_node)
{
    if(node)
    {
        if((bool)(node->GetAttribute("expanded")))
            tree_node->Expanded = true;
 
        tree_node = tree_node->getFirstChild();
        for(_di_IXMLNode xml_node = node->ChildNodes->First();
            xml_node && tree_node; xml_node = xml_node->NextSibling())
        {
            PostProcessNode(xml_node, tree_node);
            tree_node = tree_node->getNextSibling();
        }
    }
}

Мне непонятно только как на Delphi будет этот цикл:
Код

for(_di_IXMLNode xml_node = node->ChildNodes->First();
  xml_node && tree_node; xml_node = xml_node->NextSibling())

попробовал написать вот так:
Код

var 
xml_node: IXMLNode;
...
xml_node := node.ChildNodes.First;
while (xml_node and tree_node) do
begin
  PostProcessNode(xml_node, tree_node);
  tree_node = tree_node.getNextSibling();
  xml_node = xml_node.NextSibling());
end;

Но компилятор ругается на строку while: Operator not applicable to this operand type
--------------------
Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".
PM MAIL WWW ICQ MSN   Вверх
Illusion Dolphin
Дата 29.10.2013, 11:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
Код

while (xml_node and tree_node) do

Поменять на
Код

while ((xml_node <> nil) and (tree_node <> nil)) do



--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
БелАмор
Дата 29.10.2013, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 10.6.2010
Где: Россия

Репутация: 5
Всего: 17
Небольшое пояснение:
В C/C++ в качестве логического выражения может использоваться что угодно. Любое ненулевое значение трактуется как логическая единица, 0 - False. В Delphi такие вольности не предусмотрены, поэтому требуется явное сравнение.
PM   Вверх
-Сергей-
Дата 7.11.2013, 05:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1
А вот эту строку как реализовать?
Код

pt = ((NM_LISTVIEW*) ((LPNMHDR)lParam))->ptAction;

--------------------
Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".
PM MAIL WWW ICQ MSN   Вверх
MetalFan
Дата 7.11.2013, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
pt := PNM_LISTVIEW(LPNMHDR(lParam)).ptAction;

но надо знать, что за типы используются

Это сообщение отредактировал(а) MetalFan - 7.11.2013, 17:22


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
-Сергей-
Дата 8.11.2013, 04:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1
Цитата(MetalFan @ 7.11.2013,  21:21)
pt := PNM_LISTVIEW(LPNMHDR(lParam)).ptAction;

но надо знать, что за типы используются

pt: TPoint;
NM_LISTVIEW: TNMListView;

я так пробовал, только в Delphi не LPNMHDR, а TNMHdr. И не получается. Missing operator or semicolon
Пробовал и так pt := (NM_LISTVIEW as TNMHdr(lParam)).ptAction; тоже не выходит : Invalid typecast
--------------------
Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".
PM MAIL WWW ICQ MSN   Вверх
Illusion Dolphin
Дата 8.11.2013, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
А так?
Код

pt := TNMListView(lParam).ptAction;



--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
-Сергей-
Дата 11.11.2013, 04:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1
Цитата(Illusion Dolphin @ 8.11.2013,  12:59)
А так?
Код

pt := TNMListView(lParam).ptAction;

И так Invalid typecast
Только так сработало:
Код

pt := PNMListView(PNMHDR(lParam))^.ptAction;


Это сообщение отредактировал(а) -Сергей- - 11.11.2013, 04:47
--------------------
Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".
PM MAIL WWW ICQ MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0938 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.