G
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;
Как это делается. Классы описаны ниже (фрагмент кода блока 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;