169 похожих чатов

А как в OP решается проблема ромбовидного наследования для Object

и для Class?

19 ответов

4 просмотра

Интерфейсами

А object - это deprecated

serfcity--fsanitize=undefined,address Автор вопроса
Hemul GM
А object - это deprecated

Мне же только что сказали, что использовать его, если хочу на стеке

Ну либо по принципу "нет поддержки множественного наследования – нет проблемы"

множественного наследования нету

для класса интерфейсы, для объекта никак

serfcity--fsanitize=undefined,address Автор вопроса
Hemul GM
Интерфейсами

А явно указать из какого предка можно?

serfcity -fsanitize=undefined,address
А явно указать из какого предка можно?

Интерфейсы позволяют указать принадлежность к кому угодно

serfcity--fsanitize=undefined,address Автор вопроса
Hemul GM
Интерфейсы позволяют указать принадлежность к кому...

Нет, я имел ввиду, избежать "виртуального наследования", явно указав из какого класса взять реализацию верхнего класса.

serfcity -fsanitize=undefined,address
Нет, я имел ввиду, избежать "виртуального наследов...

В Делфи класс, который должен поддерживать конкретный интерфейс может использовать свойство, которое будет ссылаться на объект, который реализует этот интерфейс

Hemul GM
В Делфи класс, который должен поддерживать конкрет...

implementation чтоли? В лазаре они частично поломаны вроде

Hemul GM
В Делфи класс, который должен поддерживать конкрет...

наследоваться от потомков TInterfacedObject вообще нет проблем )

Hemul GM
Ну за лазарь и не говорю, но да оно)

Да точно, поломаны, причем у нас есть патч, но он только частично решает проблему поэтому мы его пока не выкладывали. https://gitlab.com/freepascal.org/fpc/source/-/issues/40795

serfcity -fsanitize=undefined,address
Нет, я имел ввиду, избежать "виртуального наследов...

Это можно сделать через интерфейсы. ... IRadio = interface procedure Play; procedure IncVolume; procedure DecVolume; end; IRadioRecorder procedure Record; end; TRadio = class(T)

serfcity -fsanitize=undefined,address
Нет, я имел ввиду, избежать "виртуального наследов...

Это можно сделать через интерфейсы и свойства ... {$interfaces cprba} ... interface type IRadio = interface procedure Play; procedure IncVolume; procedure DecVolume; end; IRecorder = interface procedure Record; end; TRadio = class(IRadio) procedure Play; procedure IncVolume; procedure DecVolume; end; TRadioRecorder = class(IRadio, IRecorder) private FRadio: TRadio; public procedure Record; property Radio: TRadio read FRadio write FRadio implements IRadio; end;

Похожие вопросы

Обсуждают сегодня

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта