Предмет: Информатика,
автор: Аноним
Помогите пожалуйста.
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
Ответы
Автор ответа:
0
Нужно добавить компонент "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;
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;
Похожие вопросы
Предмет: Другие предметы,
автор: ashd03
Предмет: Химия,
автор: Ghhjkpoi
Предмет: Физика,
автор: sofushka152004
Предмет: Математика,
автор: savenko1997
Предмет: Литература,
автор: taniQa