Имя сохраняемого файла

[fezilk25]

Суть программы - скачивание некоторых файлов, например музыки. имена сохраняемых файлов берутся из названия песни. но там могут быть запрещенные символы.
Есть ли функция для удаления тех символов, которые запрещены в имени файла?
Если нет, то какие именно символы запрещены, кроме > < | ? * / \ : " ?
В FAT и NTFS они вроде разные, как тогда узнать файловую систему определённого каталога?

[Человек_Борща]

имя файла тебе отдаёт сервер. И пока файл на сервере у тебя есть только его имя.

1. Сливай файл во временной файл(Например temp#<номер закачки>.tmpd).
2. из полученной строки с сервера, вырезай все левые знаки.
3. Закаченный файл переименовывай в новое имя.

[3D Hunter]

Причем тут файловая система? Чтобы убрать из строки запрещенные символы, делайте примерно так:

procedure DeleteStopSymbols(var AText:AnsiString);
const
  cntStopSym:AnsiString='><|?*/\:"';
var
  i,j:Integer;
begin
  for i:=1 to Length(cntStopSym) do
  begin
    j:=Pos(cntStopSym[i],AText);
    Delete(AText,j,1);
  end;
end;

[Marinesku]

for i:=1 to length(Text) Do
begin
i:=i+1;
begin
if Text[i]='/' or Text[i]='?'
then Delete(Text, i, 1);
end;
end;

То есть проходимся циклом по переменной от начала до конца, и, встретив ненужное, удаляем.

[Serge_Bliznykov]

Сообщение от Marinesku

То есть проходимся циклом по переменной от начала до конца, и, встретив ненужное, удаляем.

извините, у Вас написан глюкавый неправильный корявый код. Категорически бы не рекомендовал им пользоваться!

смотри пост #3. там другой алгоритм, но, в отличие от вашего, РАБОЧИЙ.

p.s. ну, ещё можно так сделать:

procedure DeleteStopSymbols(var AText:AnsiString);
const
 cntStopSym = ['>','<','|','?','*','/','\',':','"'];
var
  i : Integer;
begin
  for i:=Length(AText) downto 1 do
    if AText[i] in  cntStopSym then Delete(AText, i , 1);
end;

__
а вообще, конечно, это некропостерство...