Проверка имени файла на наличие запрещённых символовDelphi , Файловая система , ФайлыПроверка имени файла на наличие запрещённых символов
Автор: Aleksiy { **** 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 и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |