Текущий архив: 2003.01.23;
Скачать: CL | DM;

Вниз

Virtual & Override   Найти похожие ветки 

← →
БиМ   (2003-01-05 07:52) [0]

Вот собсно и сабж. А что эти слова означают?

---

← →
MBo ©   (2003-01-05 08:13) [1]

Вообще-то надо читать хелп и книги по ООП...
Если кратко:

type
TPapa=class
procedure Say;virtual;
end;
TSon=class(TPapa)
procedure Say;override;
end;
TDaughter=class(TPapa)
procedure Say;override;
end;
...
procedure TPapa.Say;
begin
ShowMessage("I am Father!!!");
end;

procedure TSon.Say;
begin
ShowMessage("I am a boy!");
end;

procedure TDaughter.Say;
begin
ShowMessage("I am a girl!");
end;

...
var a,b,c: TPapa;

a:=TPapa.Create;
b:=TSon.Create;
c:=TDaughter.Create;

a.say;
b.say;
c.say;

---

← →
Opuhshii ©   (2003-01-05 08:56) [2]

имхо следующий вопрос будет что такое inherited

Тоже вариант,...

type
TCreature = class
procedure Say;virtual;
end;

THuman = class(TCreature)
procedure Say;override;
end;

TMan = class(THuman)
procedure Say;override;
end;

TWoman =class(THuman)
procedure Say;override;
end;

implementation

procedure TCreature.Say;
begin
ShowMessage("I am");
end;

procedure THuman.Say;
begin
inherited;
ShowMessage("Human");
end;

procedure TMan.Say;
begin
inherited;
ShowMessage("Male");
end;

procedure TWoman.Say;
begin
inherited;
ShowMessage("Female");
end;


.........
var
h,m,w:TCreature;
begin
h:=THuman.Create;
m:=TMan.Create;
W:=TWoman.Create;

h.say;
m.say;
w.say;

h.Free;
m.Free;
w.Free;
end;


---

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

Текущий архив: 2003.01.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c