Класс в Delphi

  • Автор темы Guest
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

Guest

#1
Задача стоит такая. Описать классы в Delphi, это я сделал, а еще у каждого класса реализовать методы - конструктор, деструктор.
Как это делается. Классы описаны ниже (фрагмент кода блока type). Спасибо.

TTovar = class(TObject)
Name: String[100];
Kod : String[5];
Data: TDateTime;
Proizvoditel: String[255];
Gost: String[100];
Constructor Create();
Destructor Destroy;
end;

TProd_Tovar = class(TTovar)
Srok_Godnosti: Integer;
end;

TProm_Tovar = class(TTovar)
Material: String[100];
end;

TNakladnaia = class(TObject)
Nomer: Integer;
Data_postupl: TDateTime;
Name: String[100];
Kolvo: Integer;
end;
 
Z

zubr

#2
Открой любой исходник Delphi (...\Borland\Delphi6\Source\) и посмотри как.
 
D

dyatel

#3
Для приведенных класов не вижу никакого смысла переопределять конструктор и деструктор так как там используются .
Но делается это так.
обьявление
destruсtor Destroy; override;
constructor Create; //у базового типа можна ставить virtual, у наследников переопределять с override;

реализация

destruсtor имякласса.Destroy;
begin
//ваш завершающий код
inherited; //- ставить в конце!
end;


constructor имякласса.Create;
begin
inherited;
//ваш код
end;
 
Статус
Закрыто для дальнейших ответов.