Проверка имени файла на наличие запрещённых символов (? * …)
Проверка имени файла на наличие запрещённых символов (? * …)
Проверка имени файла на наличие запрещённых символов (? * ...) Не используйте функцию для проверки пути к какому-либо файлу и т.п. 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( 'Нельзя использовать символы / : * ? " | в имени файла');
