Компонент delphi SaveDialog не визуальный компонент предназначенный для поддержки операции сохранения файлов способный работать с любыми типами файлов. При обращении к этому компоненту вызывается стандартное диалоговое окно сохранения файла.
Этот компонент идентичен компоненту OpenDialog поэтому много здесь не будет написано все уже сказано в предыдущей статье. Стоит лишь напомнить, что вызов диалогового окна, в котором пользователь указывает имя сохраняемого файла, является функция Execute() пример будет рассмотрена ниже.
1 2 3 4 5 6 7 8 9 | procedure TForm3.Button3Click(Sender: TObject); var fname:string; begin if savedialog3.Execute then //вызов диалогового окна begin fname:=savedialog2.FileName; if fname<>'' then memo1.Lines.SaveToFile(fname); end; end; |