Изменить Расширение Файла Delphi

При работе с файлами в Delphi может возникнуть необходимость изменения расширения файла. Для этого можно использовать процедуру RenameFile, которая позволяет переименовывать файлы. Для изменения расширения файла нужно указать новое имя, например, с помощью функции ChangeFileExt, которая возвращает имя файла с новым расширением.Пример кода на Delphi:

  var    OldFileName, NewFileName: string;  begin    OldFileName := 'file.txt';    NewFileName := ChangeFileExt(OldFileName, '.doc');    RenameFile(OldFileName, NewFileName);  end;

В данном примере происходит переименование файла "file.txt" в "file.doc". Для этого используется функция ChangeFileExt, которая добавляет новое расширение к имени файла, и процедура RenameFile, которая переименовывает файл.Также, если нужно изменить расширение нескольких файлов, можно использовать цикл и изменять расширения файлов внутри него.

  var    Files: TStringList;    i: Integer;    OldExtension, NewExtension: string;  begin    OldExtension := '.txt';    NewExtension := '.doc';    Files := FindAllFiles('c:\', '*.*', true);    for i := 0 to Files.Count - 1 do    begin      if SameText(ExtractFileExt(Files[i]), OldExtension) then        RenameFile(Files[i], ChangeFileExt(Files[i], NewExtension));    end;    Files.Free;  end;

В этом примере происходит переименование всех файлов с расширением ".txt" в папке "c:\" в файлы с расширением ".doc". Для этого используется функция FindAllFiles, которая возвращает список файлов в указанной папке, цикл, который проходит по списку файлов, и процедура RenameFile, которая переименовывает каждый файл.