Сохранение автоматически

[Афанасий[vedma]]

На форме есть Memo с текстом. При сохранении в *.txt файл надо использовать OpenDialog. Как сделать так, чтобы сохранять не используя OpenDialog?

[artemavd]

Memo1.Lines.SaveToFile('1.txt');

[Афанасий[vedma]]

Сообщение от artemavd

Memo1.Lines.SaveToFile('1.txt');

нажал на кнопку - сохранил, при повторном нажатии ругается что мол такой файл уже существует

[FaTaL]

Ну тогда удали сначала файл. Хотя вроде такого я за TMemo не наблюдал. Вроде автоматом перезаписывает.

[Афанасий[vedma]]

мне нужно чтобы при каждом нажатии на кнопку сохраняла на новый файл...
Например: 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;

[Афанасий[vedma]]

ура=) заработало=) спасибо вам)))

тему можно закрыть

[GSirr]

Trim(IntToStr(N))

А можно спросить - это для чего так делается?

[Афанасий[vedma]]

это для отчета...в memo выводится запись(отчет) и нажимая сохраняешь

[Serge_Bliznykov]

Trim(IntToStr(N))

А можно спросить - это для чего так делается?

на 99% trim() здесь совершенно излишен (IntToStr и так пробелов лишних не добавляет).
Но, я просто перестраховался чуток!
Чтобы вражеские пробелы, если они вдруг прокрадутся - не помешали нам ))