Проверка имени файла на наличие запрещённых символов

{ **** 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
;

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

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!