Сохранить как

[Praud]

Как реализовать функцию "Сохранить как" или "Открыть"?

[Человек_Борща]

С помощью диалогов TOpenDialog, TSaveDialog

[grominfo]

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
  begin
    memo1.lines.loadfromfile(opendialog1.FileName);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if savedialog1.Execute then
 memo1.Lines.SaveToFile(savedialog1.FileName);
end;

[Praud]

Спасибо! Разобрался

[Praud]

Только вопрос, что означает Execute?

[Stilet]

Это метод, вызывающий на экран окно диалога. Если в диалоге нажата отмена - он возвращает False иначе True. Так можно проверить отказался ли юзер выбирать.

[Serge_Bliznykov]

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

Только вопрос, что означает Execute?

if opendialog1.Execute then

запустить диалог выбора открываемого файла и если выбрали файл тогда...

if savedialog1.Execute then

запустить диалог выбора имени сохраняемого файла и если выбрали файл тогда...

[kta87]

if not OpenDialog.Execute then exit 
  else 
   begin
    // Действия при  True;
   end;

[Serge_Bliznykov]

kta87, можно и так, но ЗАЧЕМ?!!!
чем вариант от grominfo не устроил?!

[kta87]

А разве меня должно устраивать? Не.. ТС должно устраивать, а я лишь показал 1 из вариантов.