Класс в Delphi

Тема в разделе "Delphi - FAQ", создана пользователем -, 30 май 2007.

Статус темы:
Закрыта.
  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;
     
  2. zubr

    zubr Гость

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

    dyatel Гость

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

    реализация

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


    constructor имякласса.Create;
    begin
    inherited;
    //ваш код
    end;
     
Загрузка...
Похожие Темы - Класс Delphi
  1. swyatogor
    Ответов:
    0
    Просмотров:
    63
  2. Corexis
    Ответов:
    0
    Просмотров:
    66
  3. rrrFer
    Ответов:
    0
    Просмотров:
    130
  4. Sander
    Ответов:
    1
    Просмотров:
    507
  5. Искушенный
    Ответов:
    0
    Просмотров:
    427
Статус темы:
Закрыта.

Поделиться этой страницей