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

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

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



ExtractFilePath

извлекает из полного имени файла название патча

|| function ExtractFilePath ( const FullFileName : string ) : string;

Описание:

    Delphi функция ExtractFilePath извлекает из полного имени файла название патча.

    Это - часть полного файлового имени вплоть до названия папки, но в отличие от ExtractFileDir, включая " \ " перед файловым именем.

Пример кода:

var
   fullFileName : string;

begin
   // Set up a full file name with drive and path
   fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

   // Show the component parts of this full name
   ShowMessage('Drive = '+ExtractFileDrive (fullFileName));
   ShowMessage('Dir = '+ExtractFileDir (fullFileName));
   ShowMessage('Path = '+ExtractFilePath (fullFileName));
   ShowMessage('Name = '+ExtractFileName (fullFileName));
   ShowMessage('Ext = '+ExtractFileExt (fullFileName));
end;

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

Drive = C:
Dir = C:\Program Files\Borland\Delphi7\Projects
Path = C:\Program Files\Borland\Delphi7\Projects\
Name = Unit1.dcu
Ext = .dcu