DELPHI RECORD НАСЛЕДОВАНИЕ

В Delphi record наследование можно использовать для создания новых типов данных, которые наследуют свойства и методы из уже существующих записей (records). Наследование позволяет избежать дублирования кода и упрощает его поддержку.

Для определения наследования в записях (records) в Delphi используется ключевое слово inherited в блоке записи (record). Оно указывает на то, что текущая запись наследует свойства и методы от родительской записи.

Пример:

type TPerson = record Name: string; Age: Integer; end; TEmployee = record {$IFDEF UNICODE} Name: string; {$ELSE} FirstName: string; LastName: string; {$ENDIF} Salary: Double; inherited TPerson; end;

В этом примере мы определяем две записи (records) – TPerson, содержащую имя и возраст, и TEmployee, содержащую имя (строку в кодировке Unicode или две строки – имя и фамилию, если кодировка не Unicode), зарплату и наследующую свойства и методы из TPerson.

Теперь TEmployee будет иметь доступ к свойствам и методам, определенным в TPerson. Например, можно использовать следующий код для доступа к возрасту сотрудника:

var Employee: TEmployee;begin Employee.Age := 30;end;

Также можно переопределить свойства и методы, унаследованные от родительской записи (record). Для этого используется ключевое слово reintroduce.

Updating Records in Multi-tabled DB via Delphi

Adding Record in Multi-tabled DB via Delphi

Delphi Programming Tutorial #79 - Record Helpers For Primitive Types

Видеоурок по Delphi 7 - простейшая программа

Delphi #177 - Managed Records

Deleting a Record in Multi-tabled DB via Delphi

Databases in Delphi - Searching for multiple records in a database table

Реклама
Новое
Реклама