Валерий Борисок - Delphi. Трюки и эффекты
Здесь есть возможность читать онлайн «Валерий Борисок - Delphi. Трюки и эффекты» — ознакомительный отрывок электронной книги совершенно бесплатно, а после прочтения отрывка купить полную версию. В некоторых случаях можно слушать аудио, скачать через торрент в формате fb2 и присутствует краткое содержание. Жанр: Программы, на русском языке. Описание произведения, (предисловие) а так же отзывы посетителей доступны на портале библиотеки ЛибКат.
- Название:Delphi. Трюки и эффекты
- Автор:
- Жанр:
- Год:неизвестен
- ISBN:нет данных
- Рейтинг книги:5 / 5. Голосов: 1
-
Избранное:Добавить в избранное
- Отзывы:
-
Ваша оценка:
Delphi. Трюки и эффекты: краткое содержание, описание и аннотация
Предлагаем к чтению аннотацию, описание, краткое содержание или предисловие (зависит от того, что написал сам автор книги «Delphi. Трюки и эффекты»). Если вы не нашли необходимую информацию о книге — напишите в комментариях, мы постараемся отыскать её.
Delphi. Трюки и эффекты — читать онлайн ознакомительный отрывок
Ниже представлен текст книги, разбитый по страницам. Система сохранения места последней прочитанной страницы, позволяет с удобством читать онлайн бесплатно книгу «Delphi. Трюки и эффекты», без необходимости каждый раз заново искать на чём Вы остановились. Поставьте закладку, и сможете в любой момент перейти на страницу, на которой закончили чтение.
Интервал:
Закладка:
Преобразование из абсолютного в относительный путь и наоборот продемонстрировано на рис. 4.4 (нижняя часть формы). При этом в качестве исходного пути берется содержимое текстового поля Исходный длинный путь, а в качестве пути папки для построения относительного пути – содержимое поля Текущая папка.
Рис. 4.4. Преобразование путей
На всякий случай нужно уточнить, что в относительном пути элемент. указывает на текущую папку (никуда переходить не надо), а элемент. означает папку, расположенную на один уровень выше (родительскую папку). Также следует уточнить, что под абсолютным путем понимается путь, корневым элементом которого является \\ или <���диск>: \ (С: \, D: \ их д.).
Примечание
Все приведенные далее функции преобразования вы можете найти в модуле PathConvert, расположенном на диске, в папке с названием подраздела.
Преобразование длинных имен файлов в короткие и наоборот
Теперь рассмотрим реализацию преобразования путей. Сначала – преобразование между длинной и короткой формами. Выполняется это предельно просто, благо Windows API предусматривает соответствующие функции.
Преобразование длинного пути в короткий приводится в листинге 4.17.
Листинг 4.17.
Преобразование пути из длинной в короткую форму
function LongPathToShort(path: String): String;
var
buffer: String;
len: Integer;
begin
SetLength(buffer, MAX_PATH);
len := GetShortPathName(PAnsiChar(path), PAnsiChar(buffer),
MAX_PATH);
SetLength(buffer, len);
LongPathToShort := buffer;
end;
Соответственно, обратное преобразование пути может выглядеть следующим образом (листинг 4.18).
Листинг 4.18.
Преобразование пути из короткой в длинную форму
function ShortPathToLong(path: String): String;
var
buffer: String;
len: Integer;
begin
SetLength(buffer, MAX_PATH);
len := GetLongPathName(PAnsiChar(path), PAnsiChar(buffer),
MAX_PATH);
SetLength(buffer, len);
ShortPathToLong := buffer;
end;
При тестировании последнего листинга в Delphi 7 выяснилось, что API-функция GetLongPathName объявлена в модуле Windows. Возможно, в более старых или новых версиях Delphi это не так. Но в любом случае импортировать эту функцию из библиотеки Kernel32. dll предельно просто, достаточно поместить в модуль следующую строку:
function GetLongPathName(lpszLongPath: PChar;
lpszShortPath: PChar; cchBuffer: DWORD): DWORD;
stdcall; external kernel32 name \'GetLongPathNameA\
Преобразование абсолютного пути в относительный и наоборот
Теперь пришла очередь рассмотреть реализацию преобразований между абсолютной и относительной формами путей. Однако сначала рассмотрим небольшую, но полезную процедуру, используемую при преобразованиях. Процедура GetPathElements (листинг 4.19) формирует список строк из компонентов переданного ей пути (имен каталогов и имени целевого файла или каталога).
Листинг 4.19.
Разбиение пути на составляющие
procedure GetPathElements(path: String; elements: TStrings);
var
start, pos: Integer;
begin
start := 1;
for pos := 1 to Length(path) do
if path[pos] = \'\\' then
begin
if start <> pos then
//Выделим имя каталога
elements.Add(Copy(path, start, pos – start))
else
//Сочетание типа \'\\\' в середине пути пропускаем
;
start := pos + 1;
end;
pos := Length(path) + 1;
if start <> pos then
//Выделим имя последнего каталога или файла
elements.Add(Copy(path, start, pos – start));
end;
После применения процедуры GetPathElements работать с компонентами пути становится очень удобно, да к тому же и упрощается код функций преобразования, так как при их написании не нужно уделять внимание правильному выделению подстрок из строки полного пути.
Функция преобразования абсолютного пути в относительный (от заданной в параметре curdir папки) приводится в листинге 4.20.
Листинг 4.20.
Преобразование абсолютного пути в относительный
function AbsPathToRelative(path, curdir: String): String;
var
pathElements, curElements: TStrings;
outPath: String;
i, j: Integer;
begin
if Copy(path, 1, 2) <> Copy(curdir, 1, 2) then
begin
//Папки на разных дисках
AbsPathToRelative := path;
Exit;
end;
//Получение составляющих абсолютного и текущего пути
pathElements := TStringList.Create;
GetPathElements(path, pathElements);
curElements := TStringList.Create;
GetPathElements(curdir, curElements);
//Пропускаем одинаковые папки
Интервал:
Закладка:
Похожие книги на «Delphi. Трюки и эффекты»
Представляем Вашему вниманию похожие книги на «Delphi. Трюки и эффекты» списком для выбора. Мы отобрали схожую по названию и смыслу литературу в надежде предоставить читателям больше вариантов отыскать новые, интересные, ещё непрочитанные произведения.
Обсуждение, отзывы о книге «Delphi. Трюки и эффекты» и просто собственные мнения читателей. Оставьте ваши комментарии, напишите, что Вы думаете о произведении, его смысле или главных героях. Укажите что конкретно понравилось, а что нет, и почему Вы так считаете.