PROCEDURE Init(VAR Person:TPerson; Nm,Dt:STRING; Rt:REAL);
BEGIN
WITH Person DO
BEGIN
Name:=Nm;
Date:=Dt;
Rate:=Rt;
END;
END;
Заметьте, что поля данных должны быть объявлены перед объявлением методов.
В данной программе при необходимости можно определить уже существующую функцию, например GetName, не связывая ее с типом TPerson.
хотя такое описание не совсем корректно.
Фактически, параметр Self является как бы невидимым полем объекта типа TPerson (это относится к любому типу), доступ к которому осуществляется так же, как и к любому другому полю объекта.
Параметр Self является частью области стека при всех вызовах методов.
Методы, используемые как внешние, написанные на языке Ассемблера, должны учитывать этот параметр при получении доступа к параметрам метода в стеке.
Необходимо предусмотреть объекты, методы которых доступны, но непосредственный доступ к данным объекта запрещен.
В Турбо Паскале для этих целей используются скрытые (частные) поля и методы.
Поэтому не следует сомневаться в том, включать или не включать в объект метод, который может быть, как использован, так и не использован в программе, в которой задействован данный тип объекта.
Неиспользуемые методы не влияют ни на быстродействие программы, ни на размер ЕХЕ-файла: если они не используются в программе, то они просто не включаются в него.
Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть