Помощь - Поиск - Пользователи - Календарь
Полная версия: Изменить расширение файла
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
Unconnected
Записываю данные из потока в файл, потом очищаю поток(fs.free). Файл, в который произошла запись, без расширения. Изменяю его так:

ChangeFileExt('recivingfile',name);


Переменной name присвоено расширение, например txt(без точки). Расширение не менятся почему-то, хотя и ошибок не появляется. Файл в одно папке с програмой.
volvo
Цитата
Расширение не менятся почему-то
Ну вот и не меняется, потому что точку не включил...
name := '.txt';
ChangeFileExt('recivingfile', name);
Unconnected
Цитата
Ну вот и не меняется, потому что точку не включил...


И тем не менее..Просто доступ к файлу(удаление,переименование и т.п.) появляется только после выключения программы. Нужно как-то закрывать файл?

Это кусок кода:

fs.Write(s[1],length(s));
if fs.Size=DataSize then
Begin
fs.Free;
Reciving:=False;
name:='.'+name;
ChangeFileExt('recivingfile',name);
End;
Exit;
volvo
RenameFile('recivingfile', ChangeFileExt('recivingfile',name));

Unconnected
Переименование работает, спасибо good.gif smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.