Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Внизobject pascal Найти похожие ветки
← →
kreont (2002-04-06 23:04) [1]Ошибочка ... напишу теперь всё как полагается..
interface
type A = class
procedure f; virtual;
end;
type B = class (A)
procedure f; override;
end;
implementation
procedure A.f;
begin
writeln(" A.f ");
end;
procedure B.f;
begin
writeln(" B.f ");
end;
var MyObject : A;
begin
MyObject = B.create();
// Как мне здесь вызвать функцию f из класса-предка A используя MyObject ??
B.free;
end.
Вот так!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c