Практична робота в Delphi "Редактор тексту"

Редактор текста

           Memo1

             MainMenu1

             OpenDialog1

             SaveDialog1

              FontDialog1                  

Добавить на форму компоненты MainMenu1, OpenDialog1, SaveDialog1, FontDialog1.

Дважды щелкнуть на MainMenu1 и создать главное меню в виде:

Для OpenDialog1 и для SaveDialog1 в свойстве Filter указать:

Дописать процедуры:

procedure TForm1.N3Click(Sender: TObject);

begin

  with OpenDialog1 do begin

    if Execute then begin

      Memo1.Lines.LoadFromFile(FileName);

      Form1.Caption:='Проект "Редактор текстов" '+FileName;

    end;

  end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

  with SaveDialog1 do begin

    if Execute then begin

      Memo1.Lines.SaveToFile(FileName);

    end;

  end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

  with FontDialog1 do begin

    if Execute then Memo1.Font:=Font;

  end;

end;