|
Всем известно, что в именах файлов и папок нельзя использовать следующие символы:
Для корректного написания имен файлов, нужна функция FormatNameFile,
позволяющая заменять "запрещенный" символ на другой (по умолчанию –
#0 – удаление "запрещенного" символа').
function FormatFileName(FileName: string; Null: char = #0): string;
var i: integer;
begin
for i:=Length(FileName) downto 1 do
case FileName[i] of
'\', '/', ':', '*', '?', '"', '''', '<', '>', '|':
if Null=#0 then
Delete(FileName, i, 1) else
FileName[i]:=Null;
end;
Result:=FileName;
end;
где:
FileName – имя файла;
Null – заменяющий символ.
Например,
FormatFileName('Info?5*3.txt') выведет
'Info53.txt';
FormatFileName('Test\nomer\7', ' ') выведет
'Test nomer 7'.
|