Konstantin Kozak
3/6/2005 10:50:00 PM
AOOO OAEIE EIA IA ?AOEAIA:
TComponent=class
procedure Add(a:TComponent);virtual;abstract;
end;
TLeaf=class(TComponent)
procedure Add(a:TComponent);override;
end;
TComposite=class(TComponent)
store: array of TComponent;
procedure Add(a:TComponent);override;
end;
procedure TComposite.Add(a:TComponent);
begin
setlength(store, length(store)+1);
store[high(store)]:=a;
end;
?OE EO?IIOUA?AIEE TComposite.Add UAOAIAA IA EU?AOOII, ?OI IU AIAA?INAI,
TLeaf EIE AYA IAEI TComposite. iOOII UOI OA OAAIEUI?AOO IA Java. ÷OA
AUII AU EIOIUI, II ? java IAO AEIAIE?AOEEE IAOOE?I?:-(. ?OEUAI E ?U?IAO,
?OI IOOII EO?IIOUI?AOO ArrayList. e UAAOO O IAIN ?IUIEEIA ?OIAIAIA, EAE
OAAIEUI?AOO TComposite.Add .
void Add (TComponent _a) {
store.add(????);
}
?OI IOOII ??EOAOO ? EA?AOO?A ?AOAIAOOA store.add ?
--
Konstantin Kozak aka makados [cpu 10.108.1.22]
ICQ: 297074940 mailto: makados@viii.ntu-kpi.kiev.ua
"I think, therefore I am" Descartes