Компьютерные технологии в физике. Часть 1. Компьютерное моделирование физических процессов. Красов В.И - 8 стр.

              или в интерфейсном разделе библиотечного модуля. Описание классов
              внутри процедур и функций не допускается. При описании класса его ме-
              тоды указываются только в виде заголовков процедур и функций. Сами же
              описания этих процедур и функций располагаются в другом месте про-
              граммы или библиотечного модуля (в разделе implementation). Пример
              описания класса приведен ниже:

              type
              TForm1 = class(TForm) {имя класса TForm1 и "родителя" TForm }
                  {список полей и их типов}
                  Edit1: TEdit;
                  Button1: TButton;
                  ………………………………
                  {список методов, только заголовки процедур и функций}
                  procedure Button1Click(Sender: TObject);
                  procedure Edit1Change(Sender: TObject);
                  ……………………………….
              Public
                  X,Y: real;
                  ………………………………..
              end;     {конец описания класса}
              var
                  Form1: TForm1; {объявление переменной типа класс}
              …………………………………………………..

                    Если имя родителя не указывается, это означает, что данный класс
              является прямым потомком TObject. При описании компонентов класса
              используются специальные директивы, обеспечивающие доступность дан-
              ного компонента из различных модулей программы. Для обеспечения дос-
              тупа к данному компоненту из любой части программы, его следует поме-
              щать в раздел, отмеченный директивой public.
                    Доступ к компонентам переменной типа класс возможен только то-
              гда, когда создан экземпляр класса (объект), на который указывает данная
              переменная. Доступ при этом осуществляется, как и для записей с помо-
              щью квалифицируемого идентификатора или с помощью инструкции при-
              соединения.

              ………………………
              Form1. Button1Click (Sender);
              with Form1 do
                begin
                    X:=Width;
                    Y:=Height;

                                                        11

PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com