Высокоуровневые методы информатики и программирования. Сивохин А.В - 48 стр.

UptoLike

25
TObject – корневой класс, который определен в Delphi;
TIdentAuctionstClass – идентифицирующий класс для различных видов
изделий;
TExtAuctionsClass – расширенный класс для учета сертифицированных
изделий.
Поля классов следует поместить в разделе Private (личные), а все методы, в
том числе конструкторы и деструкторыв разделе Public (доступные).
Конструкторы должны создавать соответствующие объекты и отображать значения
их полей на экране, а
методыобеспечивать запись и чтения значений полей
создаваемых объектов. Деструкторы должны уничтожать объекты при завершении
работы модуля. Каждый конструктор обязан вызывать конструктор родительского
класса для инициализации и отображения его полей.
В разделе типов следует разместить следующие определения для классов:
Type
TIdentClass = Class(TObject)
private
ID_Auctions : Integer;
public
constructor Create(ParamID_Auctions:Integer);
procedure SetID_Auctions(ParamID_Auctions: Integer);
function GetID_Auctions: Integer;
End;
В разделе переменных определяются объекты
проектируемых классов,
которые используются в разрабатываемом модуле для инициализации формы,
очистки ее полей, модификации, отображения и ввода значений этих полей.
     TObject – корневой класс, который определен в Delphi;
     TIdentAuctionstClass – идентифицирующий класс для различных видов
изделий;
     TExtAuctionsClass – расширенный класс для учета сертифицированных
изделий.
     Поля классов следует поместить в разделе Private (личные), а все методы, в
том числе конструкторы и деструкторы – в разделе Public (доступные).
Конструкторы должны создавать соответствующие объекты и отображать значения
их полей на экране, а методы – обеспечивать запись и чтения значений полей
создаваемых объектов. Деструкторы должны уничтожать объекты при завершении
работы модуля. Каждый конструктор обязан вызывать конструктор родительского
класса для инициализации и отображения его полей.
     В разделе типов следует разместить следующие определения для классов:


     Type
     TIdentClass = Class(TObject)
     private
      ID_Auctions : Integer;
     public
      constructor Create(ParamID_Auctions:Integer);
      procedure SetID_Auctions(ParamID_Auctions: Integer);
      function GetID_Auctions: Integer;
     End;


           В разделе переменных определяются объекты проектируемых классов,
которые используются в разрабатываемом модуле для инициализации формы,
очистки ее полей, модификации, отображения и ввода значений этих полей.




25