[Delphi] Nepřímé připojení dat k objektu

[Chuck]

Neporadím ti úplně konkrétně, protože to úplně nechápu... ale zkusil bych se podívat na přetížené (overloaded) funkce - nadefinuješ stejné fce (snad i třídy), s různými parametry a ono se to bude chovat podle toho jaké parametry k tomu dáš...

"Snad i třídy" To jde? Jinak zajímavá myšlenka. Jdu se pokusit to nějak zprovoznit. Kdyby měl někdo další nápady, tak sem s nimi

[Chuck]

2 Anduril: Tak toto se jeví jako jednodušší myšlenka Jen pro upresneni to ma byt seznam cyklicky s hlavou a mame implementovat metody pro vkládání na konec a za aktualni prvek, ale to na situaci moc nemění. Snad to dám do kupy, díky.

[Anduril]

Jj, tak to uz je jedno jak to mezi sebou vnitrne propojis, na myslence to nic nemeni

[Chuck]

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

[Smitka]

"Snad i třídy" To jde? Jinak zajímavá myšlenka. Jdu se pokusit to nějak zprovoznit. Kdyby měl někdo další nápady, tak sem s nimi

Myslim, ze by to slo udelat pomoci ruznych konstruktoru s ruznyma parametrama. Ale na 100% to nereknu, jsem trochu zblblej z javy... Je to jen napad...

[Anduril]

Nevim jak v Delphi (treba to neumi? nevim), ale imho by melo stacit, jak jsem psal, pri vkladani prvku tento pretypovat na TPrvek. Jelikoz tve tridy dedi z TPrvek a seznam pouziva pouze tridu TPrvek, pak by to melo stacit...
Ten seznam by mel byt obecny, nevazat se na konkretni tridy, pouze na TPrvek. Nepotrebujes v nem pracovat s daty, takze tridy TPotomek1 a pod te vubec nezajimaji. Kdyz ze seznamu pak TPrvek dostanes, pretypujes si ho zpet na TPotomekX.

[MEluZíNa]

Stejne jako v jinych objektove orientovanych jazycich se nemusi nic pretypovavat - resp. udela se tam implicitni pretypovani.


Napr:

TPrvek = class
 procedure Zpracuj(co: TPrvek);
end;

TDalsiPrvek = class (TPrvek)
end;

TDalsi2Prvek = class (TPrvek)
end;

v kodu pak muzes napsat toto:

var 
  prvek: TPrvek;
  dalsiPrvek: TDalsiPrvek;
  dalsi2Prvek: TDalsi2Prvek;
begin
  prvek = TPrvek.Create();
  dalsiPrvek = TDalsiPrvek.Create();
  dalsi2Prvek = TDalsi2Prvek.Create();
  prvek.Zpracuj(dalsiPrvek);
  prvek.Zpracuj(dalsi2Prvek);
end;

[Anduril]

Jo, mas pravdu..smerem na TPrvek to pujde samo, ale zpet (z TPrvek na vlastni tridu) imho ne, tam to bude treba pretypovat.

[Chuck]

Jj, je to tak. Jsem zapomněl vytvořit seznam, tak mě to házelo chybu na řádku kde jsem vkládal do metody parametr jiného typu a já myslel že je to tím...

[Chuck]

Nejak se mi nedaří zprovoznit vypsání dat. Asi jsem to nepochopil správně. Chci to realizovat asi takto: Budu procházet seznam od začátku do konce a na každém prvku bych chtěl vyvolat metodu VypisSe. Podle výše uvedených poznatků predpokládám že prvky jsou v seznamu uloženy jako typ TPrvek(implicitni pretypovani). Ted nemůžu přijít na myšlenku jak přetypovat prvek seznamu zpět na typ TPotomekX, abych z něho dostal data. Respektive podle čeho poznám na jaký typ se to má přetypovat, když jsou tři varianty?
Snad jsem to napsal srozumitelne...