Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Абстрактные виртуальные методы [D5, D6]

Страницы: < 1 2 3 4
Ученик © (2002-08-28 13:21:00)
Как определить, что абстрактный метод не реализован в наследнике ?

Skier (2002-08-28 13:36:00) [61]
>Ученик

> В try except это как-то неправильно

Но чудес-то не бывает ?

Ученик (2002-08-28 13:34:00) [62]
Маленький тестовый пример

type
TA = class
procedure A; virtual; abstract;
end;

TB = class(TA);

TAClass = class of TA;

procedure TForm1.Button1Click(Sender: TObject);
var
A : TAClass;
B : TA;
begin
A := TB;
B := A.Create;
try
B.A
finally
B.Free
end
end;

В try except это как-то неправильно

Skier (2002-08-28 13:27:00) [63]
>Ученик
Ну...засунь вызов в try-except-end и всё...
И напиши функцию.

murza (2002-08-28 13:26:00) [64]
Что значит "наследник"? Экземпляр или тип. Я не совсем понимаю, как создать экземпляр абстрактного класса. А про тип тебе и на стадии разработки все известно.

Ученик (2002-08-28 13:25:00) [65]
А проверить перед вызовом ?

Skier (2002-08-28 13:23:00) [66]
>Ученик
Вызвать и получить AV (Abstract Error)

Страницы: < 1 2 3 4

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »