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