Реализация переноса по словам

В меню " Формат" выберем " Перенос по словам":

procedure TForm1.N14Click(Sender: TObject);

begin

If Memo1.WordWrap then

begin

Memo1.WordWrap: =false;

Memo1.ScrollBars: =ssBoth;

N14.Checked: =False;

end

else

begin

Memo1.WordWrap: =True;

Memo1.ScrollBars: =ssVertical;

N14.Checked: =True;

end;

end;

Разберемся что мы делаем: если уже установлен режим переноса по словам, то мы убираем его и устанавливаем галочку на N14. И наоборот.

Реализация функции " Сохранить как..."

Нам понадобится диалоговое окно сохранения документа. Воспользуемся компонентом TSaveDialog на вкладке Dialogs. Выложим его на форму. Установим фильтр, т.е. те файлы которые будет этот диалог отображать. Нам нужно *.txt, т.е. текстовые документы. Чтобы это сделать нужно найти свойство Filter и нажать на кнопку . Появится окно. Заполните его как показано на рис. 5.

Рис. 5 - Редактор фильтра.

Теперь измените свойство DefaultExt на *.txt. Это расширение которое будет добавляться к файлу.

Создадим процедуру сохранения файла. Напишем этот код сразу после {$R *.dfm}.

Procedure SaveAs;

Begin