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

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка имени файла на наличие запрещённых символов (? * ...)

Не используйте функцию для проверки пути к какому-либо файлу и т.п.

Зависимости: нет
Автор:       Aleksiy, aleksiy@sch103.krasnoyarsk.su
Copyright:   Собственное написание (Aleksiy)
Дата:        20 апреля 2002 г.
***************************************************** }

function RightFileName(const FileName: string): boolean;
const
  CHARS: array[1..10] of char =
  ('\', '/', ':', '*', '.', '?', '"', '<', '>', '|');
var
  I: integer;
begin
  for I := 1 to 10 do
    if pos(CHARS[I], FileName) <> 0 then //Найден запрещённый символ
    begin
      Result := false;
      Exit;
    end;
  Result := true;
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  if RightFileName(Edit1.Text) then
  begin
    AssignFile(F, Edit1.Text);
    Rewrite(F);
    CloseFile(F);
  end
  else
    ShowMessage(
      'Нельзя использовать символы \ / : * . ? " < > | в имени файла');
end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования