VPF::Перевести код с 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>';
    
}

Akella

Дата 15.3.2013, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Творец

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

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

Есть поля ID и PARENT_ID. Достаточно подключить какое-нибудь DBTree и оно само построет дерево.

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-код.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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