Переопределение стандартной функции

← →
avkiev (2003-07-08 11:45) [0]

Как переопределить стандартную функцию ?
Я использую класс TStreamAdapter и хочу изменить алгоритм работы его функции Stat. Для этого нужно
полностью скопировать его определение в свой проект, изменить имя класса и делать с ним что хочу
или
есть некая синтаксическая конструкция, позволяющая избежать всего этого и переопределить только одну конкретную функцию ?
Заранее благодарен

← →
Radionov Alexey © (2003-07-08 11:51) [1]

Механизм наследования. Создавай потомка и перекрывай метод (если он виртуальный)

← →
Radionov Alexey © (2003-07-08 11:54) [2]

А он как раз виртуальный.
TMyStreamAdapter = class(TStreamAdapter)
function Stat(out statstg: TStatStg;
grfStatFlag: Longint): HResult; override;
end;

.............

← →
avkiev (2003-07-08 12:30) [3]

Создал потомка.
type TMyStreamAdapter = class(TStreamAdapter) function Stat(out statstg: TStatStg; grfStatFlag: Longint): HResult; override; end;
Но в моей функции TMyStreamAdapter.Stat переменная FStream равна nil. Видимо, ее тоже нужно как-то описывать в определении класса ?

← →
avkiev (2003-07-08 12:35) [4]

Вернее, она просто не видна ...

← →
avkiev (2003-07-08 13:08) [5]

Спасибо, Алексей, все получилось

может директива reintroduce поможет?

Чему поможет?

Переопределение стандартной функции Найти похожие ветки