Класс в Delphi

[Guest]

Задача стоит такая. Описать классы в 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;

 

[zubr]

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

 

[dyatel]

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

реализация

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


constructor имякласса.Create;
begin
inherited;
//ваш код
end;