Классы. "Наследование" значений свойств.

[Ship_1]

Здравствуйте.
Никак не могу найти и понять как можно от родительского класса передать дочернему все значения его свойств.
Например, есть класс

TPrintProduct = class
public
  Type, Format: string;
end;

И есть дочерние классы:

TBook = class(TPrintProduct)
public
  Autor: string;
end;
TJournal = class(TPrintProduct)
public
  periodic: integer;
end;

Я, допустим, создаю класс TPrintProduct

PrintBook := TPrintProduct.Create;
PrintBook.Type := 'Книга';
PrintBook.Format := 'A5';

А потом создаю TBook.

Book1 := TBook.Create;

Как мне в Book1 поместить все имеющиеся значения уже созданного PrintBook? Есть что-то лаконичное, или нет ничего кроме того, чтоб просто приравнивать все соответствующие поля?

[Alex11223]

Никак. Зачем вообще создавать экземпляр TPrintProduct? В других языках такие классы обычно даже помечают как "абстрактные", чтоб нельзя было создать их экземпляр.

А для инициализации обычно используют конструктор. В конструкторе можно вызвать родительский конструктор.

[Аватар]

Я, допустим, создаю класс TPrintProduct

Нет, это создание экземпляра класса.

Наследуется не экземпляр класса, а класс.

И Type и Format ни капли не свойства, а просто public-поля

В других языках такие классы обычно даже помечают как "абстрактные"

В делфи тоже, сделать любой метод абстрактным - получишь абстрактный класс

[Ship_1]

Сообщение от Alex11223

Зачем вообще создавать экземпляр TPrintProduct?

Например, если в родительском классе не 2, а гораздо больше полей, и если много различающихся дочерних классов, чтоб при вновь созданном каждом из них не переприсваивать уже имеющиеся значения. Родительский конструктор ведь тоже не переносит значения.
Наверное, придётся создавать свой "конструктрор", с параметром - экземпляром родительского класса, в котором присваивать значения экземпляра "родителя"...

[Аватар]

Ни чем экземпляр родительского класса не поможет, он вообще не нужен

[evg_m]

родительский класс разлинованная ВЕРХНЯЯ половинка листа
дочерний класс Целый разлинованный лист (он включает в себя ту самую верхнюю половинку)

(разлинованная == перечислены свойства названия + значения)

Если мы берем половинку листа (создаем объект родительского типа) у нас есть только что написано на этой половинке. И писать мы можем только на ЭТОЙ половине.

Если бы берем СРАЗУ целый лист (создаем объект ДОЧЕРНЕГО типа) Мы можем писать на ВСЕМ листе.
При этом если согнем лист пополам то "увидим" только ВЕРХНЮЮ половинку (и читать/писать сможем только то что относится к РОДИТЕЛЬСКОМУ классу).
Использование свойств РОДИТЕЛЬСКОГО класса.
Но вторая половинка никуда не делась, и мы можем лист развернуть. Вернуться к полному набору свойств.

При половине листа (объект родительского класса) у нас ФИЗИЧЕСКИ нет второй половины и разворачивать нам НЕЧЕГО.

[Alex11223]

Что куда не переносит?

И чем поможет еще один экземпляр?) Все равно ж ему придется присвоить значения. Тогда проще сделать конструкторы устанавливающие эти значения по умолчанию.

[Ship_1]

Сообщение от Alex11223

Что куда не переносит?

Родительский конструктор родительские значения в дочерний класс

Сообщение от Alex11223

Тогда проще сделать конструкторы устанавливающие эти значения по умолчанию.

Ну вот это я и имел ввиду в конце.

[Alex11223]

Не это.

TPrintProduct = class
public
  Format: string;

  constructor Create(AFormat: string);
end;

TBook = class(TPrintProduct)
public
  Author: string;

  constructor CreateA5Book(AAuthor: string);
end;

constructor TPrintProduct.Create(AFormat: string);
begin
  Format := AFormat;
end;

constructor TBook.CreateA5Book(AAuthor: string);
begin
  inherited Create('A5');
  Author := AAuthor;
end;

Или для каких-то случаев просто

constructor Create(AAuthor: string; AFormat: string = 'A5');

[Ship_1]

Вот тут я уже ничего не понял... Откуда взялись эти "А"? AFormat, AAutor... Вот тут ещё нашёл похожее, только там вместо "А" непонятные "F"