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

Question

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

Answer 1

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