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

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

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

15th
Авг

Автоматическое сохранение текста из Memo

Posted by micher under Delphi

Афанасий[vedma]

На форме есть Memo с текстом. При сохранении в *.txt файл надо использовать OpenDialog. Как сделать так, чтобы сохранять не используя OpenDialog? Мне нужно чтобы при каждом нажатии на кнопку сохраняла на новый файл…
Например: 3 раза кликнул на кнопку и создались 3 файла(1.txt, 1(1).txt, 1(2).txt)

Serge_Bliznykov



procedure TForm1.Button1Click(Sender: TObject);
const profixName = 'bubu';

      extName = '.txt';
  function IntToFileName(N : integer) : string;

  begin

    if N<1 then

      Result := profixName + extName

    else

      Result := profixName +'('+Trim(IntToStr(N))+')'+ extName;

  end;
var

  i : integer;

begin

  i := 0;

  while FileExists( IntToFileName(i) ) do Inc(i);
  Memo1.Lines.SaveToFile(IntToFileName(i));
  ShowMessage('Файл сохранён с именем: '+IntToFileName(i));

end;