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

ММХ (ммх.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++ - простой как валенок! На фиг мне второй-то? Объясняю: когда на двух языках делаешь одинаковые программы, то сразу видно, на каком языке конкретно ТЕБЕ проще и удобнее кодить. Вот попробуешь, помаешься - глядишь, и язык себе конкретный выберешь. Так что готовь себя к процессу, садись за машину, а главное - не боись. Все будет круто.

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

Назад на стр. 004-092-1  Содержание

загрузка...
Cпец Хакер #075Cпец Хакер #074Cпец Хакер #073Cпец Хакер #072Cпец Хакер #071Cпец Хакер #070Cпец Хакер #069Cпец Хакер #068Cпец Хакер #067Cпец Хакер #066Cпец Хакер #065Cпец Хакер #064Cпец Хакер #063Cпец Хакер #062Cпец Хакер #061Cпец Хакер #060Cпец Хакер #059Cпец Хакер #058Cпец Хакер #057Cпец Хакер #056Cпец Хакер #055Cпец Хакер #054Cпец Хакер #053Cпец Хакер #052Cпец Хакер #051Cпец Хакер #050Cпец Хакер #049Cпец Хакер #048Cпец Хакер #047Cпец Хакер #046Cпец Хакер #045Cпец Хакер #044Cпец Хакер #043Cпец Хакер #042Cпец Хакер #041Cпец Хакер #040Cпец Хакер #039Cпец Хакер #038Cпец Хакер #037Cпец Хакер #036Cпец Хакер #035Cпец Хакер #034Cпец Хакер #033Cпец Хакер #032Cпец Хакер #031Cпец Хакер #030Cпец Хакер #029Cпец Хакер #028Cпец Хакер #027Cпец Хакер #026Cпец Хакер #025Cпец Хакер #024Cпец Хакер #023Cпец Хакер #022Cпец Хакер #021Cпец Хакер #020Cпец Хакер #019Cпец Хакер #018Cпец Хакер #017Cпец Хакер #016Cпец Хакер #015Cпец Хакер #014Cпец Хакер #013Cпец Хакер #012Cпец Хакер #011Cпец Хакер #010Cпец Хакер #009Cпец Хакер #008Cпец Хакер #007Cпец Хакер #006Cпец Хакер #005Cпец Хакер #004Cпец Хакер #003Cпец Хакер #002Cпец Хакер #001