profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан HRAshton
    Нужно добавить компонент "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;
Самые новые вопросы