Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



DirectoryExists

проверяет существование директории

|| function DirectoryExists ( const DirectoryName : string ) : Boolean;

Описание:

    Delphi функция DirectoryExists возвращает True если искомая папка существует. То есть проверяет существование папки.

    Поиск папки осуществляется в текущей папке.

    False возвращается если искомой директории не существует.

Пример кода:

var
   dirName : String;

begin
   // Create a new directory
   dirName := 'Test Folder';
   CreateDir(dirName);

   // Now see if the directory exists
   if DirectoryExists(dirName)
   then ShowMessage(dirName+' exists OK')
   else ShowMessage(dirName+' does not exist');

   // Delete the directory and look again
   RemoveDir(dirName);
   if DirectoryExists(dirName)
   then ShowMessage(dirName+' still exists!')
   else ShowMessage(dirName+' no longer exists');
end;

Результат выполнения:

Test Folder exists OK
Test Folder no longer exists