Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 15 стр.

                                               15
       Сн а ча ла след у ет м а ркирова т ь (выд елить) об ъект , д ля кот орого
созд а ёт ся процед у ра об ра б от ки соб ытия . В н а ш ем слу ча е э       то ком а н д -
н а я кн опка Пересчёт. З а т ем выб ра ть вкла д ку Events (соб ытия ) окн а
Object Inspector.
       Ч т об ы созд а т ь процед у ру об ра б от ки соб ытия , н а д о сд ела ть д вой-
н ой щелчок в поле им ен и процед у ры об ра б от ки соб ытия . В резу льт а -
т е от крыва ет ся окн о ред а кт ора код а с м а кет ом процед у ры об ра б от ки
соб ытия . Delphi а вт ом а тически присва ива ет процед у ре об ра б от ки со-
б ытия им я , кот орое состоит из д ву х ча ст ей. Перва я ча ст ь ид ен т иф и-
циру ет ф орм у , кот орой прин а д леж ит об ъект, д ля которого созд а ёт ся
процед у ра об ра б отки соб ыт ия . В тора я ча ст ь им ен и ид ен тиф ициру ет
са м об ъект и соб ыт ие. В н а ш ем слу ча е им я ф орм ы – Form1, им я ко-
м а н д н ой кн опки – Button1, им я соб ытия – Click.
       Соб ытие OnClick я вля ет ся д ля ком а н д н ой кн опки Button соб ыти-
ем по у м олча н ию . Поэ       т ом у м а кет процед у ры об ра б от ки эт ого соб ыт ия
м ож н о д об а вит ь в програ м м н ый код , сд ела в д войн ой щелчок левой
кла виш ей м ыш и по кн опке Пересчёт.
       В окн е ред а кт ора код а м еж д у begin и end м ож н о печа т а т ь ин -
ст ру кции Object Pascal, реа лизу ю щие процед у ру об ра б от ки соб ытия .
М еж д у за головком процед у ры и словом begin н еоб ход им о д об а вит ь
описа н ие использу ем ых в процед у ре лока льн ых перем ен н ых.
       И сход н ые д а н н ые програ м м а полу ча ет из окн а ред а кт ирова н ия
Edit1. Т о, чт о м ы введ ём в э         т о окн о, б у д ет присвоен о свойст ву Text
ком пон ен т а Edit1. Свойст во Text им еет ст роковый т ип. Поэ                 т ом у м ы
д олж н ы введ ён н у ю ст року преоб ра зова т ь в число с пом ощью од н ой
из след у ю щих ф у н кций преоб ра зова н ия т ипов:
StrToInt(s) – возвра ща ет целое число, изоб ра ж ен ием кот орого я вля ет ся
ст рока s.
StrToFloat(s) – возвра ща ет вещест вен н ое число, изоб ра ж ен ием кот орого
я вля ет ся cтрока s.
       Т а ким об ра зом , ин ст ру кция , котора я присва ива ет вещест вен н ой
перем ен н ой d            зн а чен ие числа , изоб ра ж ен ием кот орого я вля ет ся
ст рока , введ ён н а я в поле Edit1, выгля д ит след у ю щим об ра зом :
                             d:=StrToFloat(Edit1.Text);
       После вычислен ия количест ва са н т им ет ров, соот вет ст ву ю щих вве-
д ён н ом у количест ву д ю йм ов, н еоб ход им о вывест и сооб щен ие о ре-
зу льт а та х вычислен ия в поле м ет ки Label2. Д ля э            т ого н у ж н о ст року
т екст а сооб щен ия , за клю чён н у ю в а пост роф ы,           присвоит ь свойству
Caption м ет ки Label2. При э            том н у ж н о вст реча ю щиеся в строке со-
об щен ия числа преоб ра зова ть в строку с пом ощью од н ой из след у ю -
щих ф у н кций преоб ра зова н ия типов:
IntToStr(n)          – строка , я вля ю ща я ся изоб ра ж ен ием целого числа n.
FloatToStr(n)        – ст рока , я вля ю ща я ся изоб ра ж ен ием вещест вен н ого n.
FloatToStrF(n,f,l,m) – строка , я вля ю ща я ся изоб ра ж ен ием вещест вен н ого n;
                                 при вызове ф у н кции у ка зыва ю т ся :