ТутРешу.Ру

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

Задание:

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

Решение:

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




Знаете другой ответ?

Отправить свой ответ