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

[Chuck]

Nevim jestli jsem nazval tento thread správně, ale problém je takovýto:
Máme udělat lineární seznam, ktery obsahuje prvky typu TPrvek. TPrvek má atribut Naslednik:TPrvek. Potřebuji k prvku připojit data. Udělal jsem to tak, že jsem přidal nový atibut Data:String. Jenže takhle to nemá být. Prvek seznamu nemá v sobě nést data. Řešení je prý pomocí dědičnosti nebo pomocí tzv. háčku. Ale ani v jedno prípadě nevim jak na to. Data mohou být podle potřeby různá. Mohou být trojího typu:
1. typ: 2 polozky(string,integer)
2. typ: 3 polozky(string,string,integer)
3. typ: 2 polozky(string,string)
Vytvoril bych si tedy 3 třídy od každého typu dat jednu.
Jak mám zajistit aby jsem měl k prvku připojen konkrétně jeden typ dat?

[Smitka]

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áš...

[Anduril]

pomoci dedicnosti to muzes udelat tak, ze budes mit tridu TPrvek, ktera bude mit atribut Naslednik typu TPrvek. Trida TSeznam bude obsahovat atribut Prvni: TPrvek.
Data zajistis treba tak, ze z tridy TPrvek "zdedis" sve tridy, ktere budou obsahovat jeste atributy pro tva data, libovolnych typu.
Do seznamu pak bude pomoci metody "add" pridavat vzdy na konec (projdes si cyklem / rekurzi seznam od Prvni pres atributy Naslednik cely seznam az na konec) prvek, ktery bude instanci tve tridy rozsirujici TPrvek, ale pretypovane na TPrvek..cili pro seznam se bude tva trida tvarit jako TPrvek, bude mit atribut Naslednik. Pro tve potreby bude obsahovat data dle libosti (pro pouziti zase pretypujes zpet).

Nebo muzes mit TPrvek, ktery bude obsahovat atribut Naslednik: TPrvek a atribut Data: TPrvekData. Pak si vytvoris tridu TMojeData, ktera bude rozsirovat TPrvekData a bude obsahovat atributy pro tva data. Do seznamu budes na konec pridavat instanci TPrvek, kde atribut Data bude odkazovat na instanci tridy TMojeData a podobne..

A urcite jsou dalsi zpusoby

[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;