Tak už jsem narazil. Mám v Třídě TSingleList tyto metody:
constructor Vytvor(Hlava:TPrvek); Virtual;
procedure Zrus(Parametr:Boolean);
function JePrazdny:Boolean;
function ZpristupniPrvni:TPrvek;
procedure VlozPrvni(Prvni:TPrvek);
procedure OdeberPrvni;
procedure VlozNaslednika(Dalsi:TPrvek);
procedure OdeberNaslednika;
procedure SetAktualni(Prvek:TPrvek);
function GetAktualni:TPrvek;
Vetšina z nich má parametr typu TPrvek. Jenze já vytvářím objekty z třídy dědící po TPrvek, dejme tomu TPotomek1,TPotomek2 a TPotomek3. Z toho plyne že bych musel každou metodu s parametrem typu Tprvek přetížit 3x. Neexistuje jednodušší řešení?
BTW: Jak bych přetížil třeba tuto funkci?
function TSingleList.ZpristupniPrvni:TPrvek;
begin
ZpristupniPrvni:=FHlava.ZpristupniNaslednika;
end;
To asi nejde ne? Bych ji musel vlozit do třídy TPotomek a dat ji typ prislusneho potomka.
Neztracíte se v tom? Ja jo![]()





Odpověď s citací