Изменить расширение

[SAV]

Народ, прошу помощи!!! Программированием занимаюсь не долго, поэтому могу тупить... Тут задание дали в универе- "Создать свой файловый менеджер (типа Total Commander), и организовать кнопочку для изменения расширения файла". Со всем справился, кроме изменения расширения. Может, кто чё подскажет???

[vovk]

не перевести файл из одного формата в другой, а просто расширение изменить? если да то так ChangeFileExt(<имя файла>, '.ini')

[bitSoft]

ChangeFileExt

[SAV]

А фу-я ChangeFileExt(<имя файла>, '.ini') ведь для работы со строками... или???
А я имел ввиду, чтобы в ф.м. выбрать файл, нажать на кнопочку и поменять расширение.

[vovk]

поправлюсь это естественно позволяет только получить имя файла с другим расширением без лишних телодвижений, а переименовать всё равно придётся, а это уже
Rename, то есть вместе можно както так

var
F:file ;
begin
if OpenDialog1.Execute  then
begin
  AssignFile(f,OpenDialog1.FileName);
   rename(f,ChangeFileExt(OpenDialog1.FileName,'.ini'));
  end;

[SAV]

Круто, что-то вырисовывается. Thanks vovk!!!
Ещё вопросик - я изменяю расширение только на .ini А можно как-то не влезая в код проги менять само расширение, т.е. не только .ini, а там, на выбор что-ли...

[vovk]

а что мешает заменить 'ini' на переменную? или текст из эдита???

rename(f,ChangeFileExt(OpenDialog1.FileName,'.'+edit1.text));

[SAV]

Классно!Я удовлетворён. Ещё раз спасибо за помощь...