Сохранить файл (Delphi)

[qadhhj]

У меня через opendialog можно открыть rtf файлы, которые открываются в richedit, подскажите пожалуйста, как по нажатии на кнопку можно сохранить этот файл в папку с программой, и чтобы название файла менялось в зависимости от edit'а?

[Serge_Bliznykov]

а зачем вам Edit ? Логичнее, если название файла для сохранения будет задаваться через SaveDialog

например, так:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SaveDialog1.DefaultExt := '.rtf';
  SaveDialog1.Filter := 'RTF files|*.rtf';
  if SaveDialog1.Execute then begin
     RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
     ShowMessage('Файл '+SaveDialog1.FileName+' сохранён. ');
  end;
end;

впрочем, если Вам принципиально брать имя из Edit, тогда
RichEdit1.Lines.SaveToFile ( Edit1.Text );

[qadhhj]

Большое спасибо!

[qadhhj]

Еще одна проблема, сохраняю файл с помощью
RichEdit1.Lines.SaveToFile ( Edit1.Text );
Но сохраняет в папку откуда был выбран файл, а не в папку с программой.

[d3qoot]

попробуйте так:

RichEdit1.Lines.SaveToFile(getcurrentdir+'\'+Edit1.Text+'.rtf');

[vovk]

RichEdit1.Lines.SaveToFile (ExtractFilePath(ParamStr(0))+Edit1.Text );

[qadhhj]

Заработало, спасибо всем!)