Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Сен

Cоздать точную копию файла, но с расширением *.txt

Posted by Chas under Delphi

Цель задачи указать на файл через topendialog, затем создать его точную копию, но с расширением *.txt, укажу загвостку, файл может быть любого типа (например exe -файл, ведь если его открыть через блокнот, то выведутся много непонятных символов, мне нужно их в точности скопировать).

FaTaL
В вашем случае можно примерно так:

procedure TForm1.Button1Click(Sender: TObject);

var

  fname   : string; // полное имя исходного файла

  newfname: string; // полное имя нового файла без расширения

begin

  If OpenDialog1.Execute then

    begin

      fname := OpenDialog1.FileName;

      newfname := Copy (fname, 1, Length(fname) - Length (ExtractFileExt(fname)));

      CopyFile (PChar(fname), PChar(newfname + '.txt'), true);

    end;

end;

тема на форуме