Информационни технологии 1

Програмиране на Delphi

4. Собствен бележник

Имаме нова форма и засега няма нищо друго. Нека веднага променим някои свойства на формата. В свойството Caption въведете "My Notepad" (разбира се, без кавички). Променете свойството Name на "fMain".

Съвет: за да улесните навигацията в имената на модули (файлове с код) и формуляри, е по-добре да изработите правилата веднага:

Преди името на формуляра ще посочим малка буква f, за да покажем, че това е точно формата.
Ще изберем имената на формулярите информативни, за да стане ясно с каква форма си имаме работа.
Ще бъдат извикани и модули за формуляри, но без буквата f.
Основната форма винаги ще се нарича fMain, а модулът, съответно, Main .

Тези указания не са задължителни, но по-късно, когато влязат проекти с множество форми, те ще ви помогнат да се ориентирате в заглавията. Можете да направите свои собствени правила.

Нека запазим проекта в отделна папка. Ние наричаме модула Main и даваме на проекта името MyNotebook.

Сега нека се запознаем с новия, мощен компонент Memo, който се намира в раздела Стандарт и е предназначен за въвеждане от потребителя на многоредов текст.

Поставете този компонент върху фигурата, в горната лява част на фигурата, и я разтегнете до формата, оставяйки малко място отдолу. Поставете, един до друг, три бутона. В крайна сметка трябва да получите нещо подобно:

Сега нека изберете първия бутон и напишете „Запазване“ в свойството Caption на този бутон. На втория бутон ще напишем „Изтегляне“, на третия - „Изчистване“.

Това не е всичко. Нуждаем се от текста, който автоматично да се увие в друг ред, когато пишете, и потребителят може да превърта през него. Намерете свойството ScrollBars (компонентът Memo трябва да бъде избран), това свойство е отговорно за наличието на ленти за превъртане. Изберете ssVertical, за да се появи вертикална лента за превъртане.

След завършване на интерфейса остава да напишете кода, който ще бъде изпълнен от програмата. Щракнете два пъти върху първия бутон, създайте манипулатор на събития за бутона "Запазване". На мястото, където курсорът мига, ще напишем само един ред:

Методът SaveToFile () на свойството Lines на компонента Memo запазва целия текст в посочения файл. Ако не посочите пътя към файла, по подразбиране файлът ще бъде създаден там, откъдето е стартирана програмата.

Нека напишем два реда за втория бутон:

Нека анализираме тези редове. Какво ще стане, ако потребителят щракне върху този бутон, преди да запази нещо във файл? Файлът все още не е там! Първият ред просто проверява за съществуването на файла. Ако няма файл, тогава вторият ред няма да бъде изпълнен. Ако е, тогава вторият ред чете текста от този файл в компонента Memo. По-късно ще се запознаем с условни оператори, тогава значението на първия ред ще бъде по-ясно.

За третия бутон кодът е още по-опростен:

Експериментирайте със свойството Memo's Font, вижте как се променя шрифтът на текста.