Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Имена, пути файлов



Вернуться к списку функций
 Проверка имени файла на наличие запрещённых символов (? * ...)

 Прислал: Aleksiy ( 20 апреля 2002 г. )
©  Собственное написание (Aleksiy)
 Описание:
Не используйте функцию для проверки пути к какому-либо файлу и т.п.

 Зависимости:
нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Проверка имени файла на наличие запрещённых символов (? * ...)

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

Зависимости: нет
Автор:       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;


Вернуться к списку функций

Наверх ▲