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