Текстовый редактор на Дельфи, или снова текстовый редактор

ММХ (ммх.mail.md)

Спецвыпуск Хакер, номер #004, стр. 004-092-2

if SaveDialog.Execute then

Memo1.Lines.SaveToFile(SaveDialog.FileName);

Почти то же самое. Что действительно смешно - это то, что оно работает! Если хочется, то можно добавить код, который перед выходом спросит, не хотим ли мы посейвиться? Для этого надо жестоко даблкликнуть по третьей кнопке с чем-то подозрительно фрейдовски-фаллическим (после длительного любования этим шедевром прикладного искусства я понял, что это дверь), и увидим мы тогда надпись Close. Это просто выход. Добавив перед волшебным словом Close вот такое:

if Memo1.Lines.Count>0 then

if MessageBox(0,'Засейвиться?','Save или нет?',MB_YESNO)=IDYES then

SaveItemClick(Sender);

мы получим при жалкой попытке трусливо выйти с каким-то набранным текстом вопрос "Действительно ли мы этого хотим". Там, где у меня написано "Засейвиться" и "Save или нет", можно писать что угодно, хоть "С днем рождения, Пух".

Чего еще? Правильно, About. Здесь уже все готово, достаточно влезть в меню View, а там нажать Forms... и выбрать AboutBox. Здесь можно вымещать свое тщеславие.

Можно запускать. Работает. Просто, удобно, быстро. Понравилось? То-то же!

Займемся-ка мы с тобой такой гиперполезной прогой, как текстовый редактор, и напишем его на Дельфях. Ты скажешь: да ладно, блин, в этом номере уже есть один такой на VJ++ - простой как валенок! На фиг мне второй-то? Объясняю: когда на двух языках делаешь одинаковые программы, то сразу видно, на каком языке конкретно ТЕБЕ проще и удобнее кодить. Вот попробуешь, помаешься - глядишь, и язык себе конкретный выберешь. Так что готовь себя к процессу, садись за машину, а главное - не боись. Все будет круто.

Многого нам от сей лихой проги не надо: будет уметь файлы открывать, редактировать и сохранять. Наворотов никаких не будет - но зато чем проще, тем ближе к совершенству.