Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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


 
Семен Сорокин   (2003-07-08 14:11) [6]

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


 
Radionov Alexey   (2003-07-08 14:15) [7]

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


 
Семен Сорокин   (2003-07-08 14:18) [8]

Radionov Alexey © (08.07.03 14:15)
не так понял вопрос, сорри, думал переопределить нада :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.055 c
14-68038
wnew
2003-07-04 19:14
2003.07.21
По моему, такая зарплата по московским меркам - маловата.


1-67848
lex7
2003-07-07 16:53
2003.07.21
QuickReport -> Word/Excel


1-67818
oleg_SYS
2003-07-09 16:43
2003.07.21
Не получается выловить событие OnMouseDown.


3-67732
TAHAT
2003-06-27 07:03
2003.07.21
Найти BDE программно


1-67880
mdsns
2003-07-07 08:29
2003.07.21
Цвет шрифта в StringGrid





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский