Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Справочник по KOL - Работа с файлами

Ведущий раздела KOL и MCK: Анатолий aka XVeL
Автор: Борис Моренко
WEB-сайт: http://kol.mastak.ru

Полную версию библиотеки KOL и MCK можно скачать здесь.

function DirectoryExists( const Name: string ): Boolean;
Возвращает Tгue если директория существует.

function DirectoryEmpty( Name: string ): Boolean;
Возвращает Tгue если директория не существует.

function DirectoryHasSubdirs( const Path: string ): Boolean;
Возвращает True если директория Path существует и не имеет подкаталоги.

function CheckDirectoryContent( const Path: string; SubDirsOnly: Boolean; const Mask: string ): Boolean;
Возвращает TRUE если директория Path не содержит файлов (или каталогов если вы установили SubDirsOnly = true) с определенной маской.

function IncludeTrailingPathDelimiter( const S: string ): string;
Добавляет символ '\' в конец строки если он там не присутствует.

function ExcludeTrailingPathDelimiter( const S: string ): string;
Удаляет из конца строки символ '\' если он там присутствует.

procedure ForceDirectories( Dir: String );
Создает каталог Dir если он не существует. Если нужно то создает и подкаталоги для этого каталога.

function CreateDir( const Dir: string ): Boolean;
Создает каталог.

function ExtractShortPathName( const Path: String ): String;
Из длиного пути создает короткий путь.То есть если у вас
D:\Program Files\Borland\Delphi 3 то будет
D:\PROGRA~1\BORLAND\DELPHI~1

function ExtractFileNameWOext( const Path: String ): String;
Из полного пути к файлу выделяет имя файла без расширения.
То есть если у вас на входе
D:\Program Files\Borland\Delphi 3\prog\api.txt
на выходе : api

function FileFullPath( const FileName: String ): String;
Из короткого пути создает длинный путь.

function FileShortPath( const FileName: String ): String;
Из длинного пути создает короткий путь.

function FileSize( const Path: String ): Integer;
Возвращает размер файла

function GetUniqueFilename( PathName: string ): String;
Создает уникальное имя файла на основе существующего PathName. Например у вас файл aaa.txt то на выходе получится aaa1.txt , aaa2.txt ...

function DiskFreeSpace( const Path: String ): Int64;
Возвращает свободное место на диске. В Path должен находится путь до корневой директории, например : 'C:\'.

Проект Delphi World © Выпуск 2002 - 2004
Автор проекта: ___Nikolay