Задание:
Помогите пожалуйста. Требуется написать Блокнот на делфи. Написал все, кроме кнопки «Сохранить» не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном. Помогите пожалуйста
Решение:
Нужно добавить компонент "SaveDialog" из вкладки "Dialogs" сначалаПотом примерно такой код: procedure TForm1.FormCreate (Sender: TObject); var SaveF: TextFile; begin if (SaveDialog1.Execute) then begin AssignFile (SaveF, SaveDialog1.FileName); Rewrite (SaveF); Write (SaveF, Memo1.Text); CloseFile (SaveF); end; end;
Знаете другой ответ?