Получение родительской директории указанной папки

Советы » Каталоги » Получение родительской директории указанной папки

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение родительской директории указанной папки

Функция GetParentDir возвращает родительскую директорию папки, путь к которой
задан в параметре StartDirectory. Если папки StartDirectory не существует, то
функция возвратит пустую строку.

Зависимости: system, filectrl, UBPFD.TrimEx
Автор:       VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        25 апреля 2002 г.
***************************************************** }

function

GetParentDir(StartDirectory: string

): string

; var

x: Integer; begin

Result := ''; if

DirectoryExists(StartDirectory) = False then

exit; StartDirectory := TrimEx(StartDirectory, ''); if

Length(StartDirectory) = 0 then

EXIT; X := Length(StartDirectory) + 1; repeat

X := X - 1; until

(StartDirectory[X] = '') or

(X = 1); Result := Copy(StartDirectory, 1, X); if

Result[Length(Result)] <> '' then

Result := Result + ''; if

DirectoryExists(Result) = False then

begin

Result := ''; EXIT; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com