Procedure za pozivanje razlicitih klassa.

Ovako, imam jedan mali problem.
Pokusavam da napravim proceduru koja obavlja neku stvar
i nije problem u samoj proceduri vec zelim da se parametri koje unosim
odnose kako na roditeljsku klasu tako i na izvedenu klasu.
Konkretno
TFarmer = class
public
Ruke:Truke;
.......
end;

TFarmerovSin = class(TFarmer)

Ono sto zelim je da napravim proceduru koja ce se odnositi i na roditeljski i na klasu potomka
Procedure Seje(Farmer:?);
Farmer.Ruke:=....
Odnosno ne zelim da pravim zasebnu proceduru koja bi se odnosila posebno na TFarmer i na TFarmerovSin

Ovo bi trebalo da radi ako sam dobro razumeo:


Znaci mozes pozvati i Farmer.Seje i FarmerovSin.Seje. Uvek ce se te "Ruke" odnositi na onog za koga si pozvao metod.
To si mislio?

Nisi dobro razumeo.
Procedura nije sastavni deo klase. Cak se nalazi u drugom modulu.
Znam i ja da bi tako radilo ali bi na taj nacin opteretio klasu procedurama.
Jer treba da uradim na stotine slicnih funkcija i procedura koje cu kasnije
smestiti u zaseban dll.

tebi treba nešto što se zove "indirection"

evo ti link na tu temu kao i na celo OOP u Delphiju

http://delphi.about.com/od/oopindelphi/a/delphi_oop17.htm

Mozda ovako nesto:



i onda u drugom unitu, koji je mozda i DLL ide...



Onda bi mogao pozivati proceduru:
Seje(TFarmerovSin, FarmerovSin); ili Seje(TFarmer, Farmer);