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

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

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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com