Курсовая работа: Основы программирования в среде Delphi 70

End;

Procedure TPerson. Init (N, D: String; R: Real);

Begin

Name: = N;

Date: = D;

RazV: = R;

End ;

Таким образом, каждой операции соответствует метод – реализация этой операции для объектов данного класса. Каждая операция имеет один неявный аргумент – объект, к которому она применяется. Выбор метода связан только с классом и объектом. Теперь для инициализации экземпляра типа TStudent достаточно просто вызвать его метод:

Var Person: TPerson;

Person. Init (» НиколайИванович ‘, ‘25–06–1995 ‘, 40000);

6) Определение методов . Процесс определения методов напоминает создание модулей в TurboPascal. Внутри объекта метод определяется заголовком процедуры или функции, действующей как метод:

Type

Tperson = Object;

Name: String [30];

Date: String [10];

RazV: Real;

Procedure Init (N, D: String; R: Real);

Function GetName: String;

Function GetDate: String;

FunctionGetRazV: Real;

End ;

Поля данных должны быть объявлены перед объявлением методов. Сами методы описываются вне определения объекта как отдельная процедура или функция. При определении метода его имени должно предшествовать имя типа объекта, которому принадлежит данный метод, с последующей точкой:

Procedure TPerson. Init (N, D: String; R: Real);

Begin

Name: = N;

Date: = D;

RazV: = R;

End;

Function TPerson. GetName: String;