Помогите пожалуйста. Требуется написать Блокнот на делфи

Question

Помогите пожалуйста. Требуется написать Блокнот на делфи. Написал все, кроме кнопки «Сохранить» не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном. Помогите пожалуйста

Answer 1

42

snaike30

08 февраля 2023

Нужно добавить компонент "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;

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: