1. Гость, мы просим Вас ознакомиться с Правилами Форума и Отказом от ответственности!

Результаты поиска

  1. alexdnepro
  2. alexdnepro
  3. alexdnepro
  4. alexdnepro
  5. alexdnepro
  6. alexdnepro
  7. alexdnepro
  8. alexdnepro
  9. alexdnepro
  10. alexdnepro
    dpkg-reconfigure phpmyadmin
    Сообщение от: alexdnepro, 16 ноя 2010 в разделе: PW Сервер
  11. alexdnepro
  12. alexdnepro
    Сообщение

    PW Base Admin

    Поверь у многих они именно не оттуда)
    Сообщение от: alexdnepro, 26 окт 2010 в разделе: Архив
  13. alexdnepro
    Сообщение

    Опятьже Pascal

    procedure ScanDir(Dir: string); var   SearchRec: TSearchRec; begin   if Dir <> '' then                            // Если переменная dir не пустая     if Dir[length(Dir)] <> '\' then       //  то проверяем если в конце строки нет слеша       Dir := Dir + '\';                            //  то добавляем его   if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then           // Начинаем искать все файлы в директории, если хоть что-то есть     repeat                                                                                  // то начинаем цикл        if (SearchRec.name = '.') or (SearchRec.name = '..') then     // если нашли . или ..          continue;                                                                              // пропускаем их       if (SearchRec.Attr and faDirectory) <> 0 then                      // если нашли папку         ScanDir(Dir + SearchRec.name)                                           // функция вызывает сама себя для прохода найденной папки                 else                                                                                     // если нет, то         filename:=Dir + SearchRec.name;                                      // тут писать то, что нужно делать с найденным файлом           until                                                                                   // продолжаем цикл       FindNext(SearchRec) <> 0;                                                // пока не закончатся файлы папки   FindClose(SearchRec);                                                      // закрываем поиск файлов end;                                                                                   // аминь
    Сообщение от: alexdnepro, 26 окт 2010 в разделе: Программирование
  14. alexdnepro
  15. alexdnepro
  16. alexdnepro
    Сообщение

    Опятьже Pascal

    Delphi это и есть pascal.
    Сообщение от: alexdnepro, 18 окт 2010 в разделе: Программирование
  17. alexdnepro
  18. alexdnepro
  19. alexdnepro
  20. alexdnepro