Главная страница
    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.45 MB
Время: 0.007 c
1-67880
mdsns
2003-07-07 08:29
2003.07.21
Цвет шрифта в StringGrid


3-67681
ViJen
2003-06-25 14:30
2003.07.21
Нумерация строк dBase


14-67979
CrazyHackers
2003-07-07 11:10
2003.07.21
Посоветуйте, чем работать с Excel


7-68096
Smirnoff
2003-05-13 16:06
2003.07.21
Прога должна работать всегда...но увы...


1-67912
Mishenka
2003-07-07 19:56
2003.07.21
Свойство Enabled для UpDown...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский