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

Автор: VID
WEB-сайт: http://delphibase.endimus.com

{ **** 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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования