Пример 4. Сохранение файла

 

В этом примере представлена процедура, реализующая сохранение файла, причём двумя способами: «Сохранить» и «Сохранить как…», второй случай реализуется, если не был загружен никакой файл. Предполагается, что в программе описана процедура, вызывающая диалоговое окно для открытия файла.

 

procedure TForm1.N3Click(Sender: TObject);

begin

If OpenDialog1.FileName='' then // файл не имеет имени

  begin

  If SaveDialog1.Execute then // вызов функции задания имени файла

  RichEdit1.Lines.SaveToFile(SaveDialog1.FileName) // задать имя файла

  end

else

RichEdit1.Lines.SaveToFile(OpenDialog1.FileName);

// сохранить файл с именем, заданным в OpenDialog1.FileName

end;