[Lazarus] Fatal: Circular unit reference

Zdravim,

riesim uz nejaku dlhsiu dobu problem s unitmi. Mam 2 unity, kde v kazdom mam po 1-nom classe. V unite player.pas mam TPlayer a v unite npc.pas mam TNpc. Problem je v tom ,ze v kazdom z tychto class mam v nejakej procedure ci vo funkcii vstupny parameter typu druhej triedy.

npc.pas

player.pas


Takze ked odoberem aspon v jednom z nich druhy unit tak mi to vyhodi invalid identifier. Nechcem to spajat dohromady, kedze tie unity uz maju dost vela riadkov. Budem rad za kazdu radu a snahu vyriesit moj problem.

Nepomohlo by, ak by tie triedy mali spoločného predka? Predpokladám, že npc aj player má priradené nejaké súradnice, ktoré sa v tej metóde OverVzdialenost porovnávajú a minimálne to by sa dalo presunúť to tej rodičovskej triedy.

Ak TPlayer nemá mať tú metódu, tak by v rodičovskej triede tá metóda bola abstraktná a kompletná implementácia by bola len v TNpc.

O spolocnom predkovi som neuvazoval. Dakujem skusim to.