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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перевести код с php на Delphi 
:(
    Опции темы
Vaskevych
  Дата 15.3.2013, 01:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi Developer



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

Репутация: нет
Всего: нет



Помогите перевести даный код на Delphi.
Ето рекурсивное построение дерева с н-узлами.

Код

function get_cat() {
    //запрос к базе данных
    $sql = "SELECT * FROM categories";
    $result = mysql_query($sql);
    if(!$result) {
        return NULL;
    }
    $arr_cat = array();
    if(mysql_num_rows($result) != 0) {
        
        //В цикле формируем массив
        for($i = 0; $i < mysql_num_rows($result);$i++) {
            $row = mysql_fetch_array($result,MYSQL_ASSOC);
            
            //Формируем массив где ключами являются адишники на родительские категории
            if(empty($arr_cat[$row['parent_id']])) {
                $arr_cat[$row['parent_id']] = array();
            }    
            $arr_cat[$row['parent_id']][] = $row;    
        }
        //возвращаем массив
        return $arr_cat;
    }
}    

//вывод каталогa с помощью рекурсии        
function view_cat($arr,$parent_id = 0) {

    //Условия выхода из рекурсии
    if(empty($arr[$parent_id])) {
        return;
    }
    echo '<ul>';
    //перебираем в цикле массив и выводим на экран
    for($i = 0; $i < count($arr[$parent_id]);$i++) {
        echo '<li><a href="?category_id='.$arr[$parent_id][$i]['id'].
                    '&parent_id='.$parent_id.'">'
                    .$arr[$parent_id][$i]['title'].'</a>';
        //рекурсия - проверяем нет ли дочерних категорий
        view_cat($arr,$arr[$parent_id][$i]['id']);
        echo '</li>';
    }
    echo '</ul>';
    
}

PM   Вверх
Akella
Дата 15.3.2013, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18477
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Есть поля ID и PARENT_ID. Достаточно подключить какое-нибудь DBTree и оно само построет дерево.
PM MAIL   Вверх
Poseidon
Дата 27.3.2013, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Цитата(Vaskevych @  15.3.2013,  01:42 Найти цитируемый пост)
Помогите перевести даный код на Delphi.
Очень интересно. Я вот всегда когда говорю "помогите" подразумеваю "подскажите". В твоем же случае явно читается "сделайте". Кажется мне не хватает тут суммы, которую ты готов выложить за эту работу.

А еще мне интересно как можно перевести php-код, который возвращает html-разметку, в delphi-код, который вернет exe-файл? Или ты хочешь exe, который вернет html? И потом повесить его на хостера, что бы при обращении к нему через браузер возвращалась веб-страничка? В общем в этой задаче гораздо больше требуется данных, чем php-код.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Google
  Дата 19.7.2019, 09:28 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




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


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

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