[Lazarus] Fatal: Circular unit reference

Redpoint1 · Napísal **Redpoint1**: 12.06.2013 13:23

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

Kód:

interface

uses
  Classes, SysUtils, Graphics, ExtCtrls, Dialogs, player;

type

  TNpc = class
   procedure OverVzdialenost(Hrac : TPlayer);
 

player.pas

Kód:

interface

uses
  Classes, SysUtils, Graphics, ExtCtrls, Dialogs, game, share, npc;

type 
  TPlayer = class
    OverKoniec(Nepriatel : TNpc)

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.

chrono · Napísal **chrono**: 13.06.2013 12:58

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.

Redpoint1 · Napísal autor témy **Redpoint1**: 13.06.2013 22:15

O spolocnom predkovi som neuvazoval. Dakujem skusim to.

[Lazarus] Fatal: Circular unit reference

Podobné témy