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