Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Перевести код с php на Delphi


Автор: Vaskevych 15.3.2013, 01:42
Помогите перевести даный код на 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>';
    
}

Автор: Akella 15.3.2013, 10:25
Есть поля ID и PARENT_ID. Достаточно подключить какое-нибудь DBTree и оно само построет дерево.

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)