Mozda ovako nesto:
Code:
Unit UFarmeri;
TFarmer = class
public
Ruke:Truke;
.......
end;
TFarmerovSin = class(TFarmer)
...
i onda u drugom unitu, koji je mozda i DLL ide...
Code:
Unit UDLL;
interface
uses UFarmeri;
type ctFarmeri = class of TFarmer;
...
procedure Seje(ATip: ctFarmeri; AObject: TObject);
...
implementation
procedure Seje(ATip: ctFarmeri; AObject: TObject);
begin
(AObject as ATip).Ruke:=...;
end;
Onda bi mogao pozivati proceduru:
Seje(TFarmerovSin, FarmerovSin); ili Seje(TFarmer, Farmer);