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

Вниз

object pascal   Найти похожие ветки 

← →
kreont   (2002-04-06 23:41) [4]

Хм... короче это такая головоломка на знание object pascal
Можно только одно keyword добавить но сколько хошь раз.
вот упрощённый текст задания.

interface
type A = class
procedure f; virtual;
end;

type B = class (A)
procedure f; override;
end;

type C = class (B)
procedure f; override;
end;

implementation

procedure A.f;
begin
writeln(" Nice! ");
end;

procedure B.f;
begin
writeln(" RTFM ");
end;

procedure C.f;
begin
inherited;
end;

var MyObject : A;
begin
MyObject = C.create();
MyObject.f;
MyObject.free;
end.

Сейчас программа напишет "RTFM"
а надо "Nice!" ... один keyword можно добавить...
башка щас взорвётся..

---

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

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

Наверх

Память: 0.43 MB
Время: 0.006 c