Circular UNIT reference, problem

POzdrav

Kao sto sam naslov kaze imam problem sa Circular Unit referencom...
evo o cemu se radi...

Imam 3 Klase: A, B, i C
Imam 2 Unita: Unit1 i Unit2

E sada,
Klasa A ima u sebi promenjivu koja je tipa Klase C.
Klasi B ima isto promenjivu tipa Klase C
Klasa C ima 2 promenjive Tipa klasa A i B

klase A i C su u Unit1 a B je u unit 2.

Problem je kako resiti problem Circular Unit referenca..
Ako ih stavim sve u jedan unit opet imam problem jer mi Forward Decleration klase tu nikako ne pomaze jer imam 3 ispovezivane klase...

Ima li neko neku ideju?

pozdrav svima

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

sama po sebi je struktura cirkularna, mislim da ne moze to tako da funkcionise. jel mora da bude tako komplikovano?? nigde ne mozes da definises pojam preko njega samog

Potpis

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Iz klase C izbaci sve promenjljive iz klasa A i B, i napravi C1 koja nasljedjuje C, a u njoj dodaj promenjljive iz klasa A,B tacno one koje si izbacio iz C.

Da, tako bi trebalo da funkcionise, ali pod uslovom da opet nabacam sve u jedan UNIT...

hmmm ima li neka mogucnost da mi ostane sve to u 2 unita, posto ima dosta koda pa je preglednije i lakse za rad.

POzdrav

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

'Ako ih stavim sve u jedan unit opet imam problem jer mi Forward Decleration klase tu nikako ne pomaze jer imam 3 ispovezivane klase...'

Forward declaration JOS KAKO pomaze; u jednom unit-u mozes da uradis sve.

Rajko

evo u cemu je problem sa Forward decleration...

pisem na primer ovako:



Konkretno u mom primeru imam 2 threada. Thread1 i Thread 2
I imam jednu klasu.

Threadovi imaju u sebi promenjivu:
Owner : TKlasa;

a Klasa ima u sebi 2 promenjive:

Thread1 : TThread1;
Thread2 : TThread2;

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Stavi forward declaration za SVE tri klase odmah na pocetak

type
klasaA = class;
klasaB = class;
klasaC = class;

pa tek onda nastavi sa punom deklaracijom

Problem je u tome sto to ne moze tako..

Nego mora da se uradi

Forward...

pa neka klasssa

pa odma ispod klasa ciji je forward bio gore... Inace kompajler daje gresku..

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Uh, koji kompajler? U Delphi-ju moze glatko forward kako hoces...

Rajko

Delphi 7

Prijavljuje sledecu gresku ukoliko ne postujem onaj redosled iz prosle poruke:

"Type ImeKlase is not yet defined."

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Delphi 7...

Greska koju izbacuje je:

"Type KlasaA is not yet completely defined"

pozdrav

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

evo kako može (provjereno na d7):

unit Unit2;

interface

type
klasa1 = class;
klasa2 = class;
klasa3 = class;

klasa1 = class
Proba: integer;
p1: klasa2;
p2: klasa3;
end;

klasa2 = class
Proba: integer;
p1: klasa1;
p2: klasa3;
end;

klasa3 = class
Proba: integer;
p1: klasa1;
p2: klasa2;
end;

Daj definicije klasa u oba Unita pa ces sve srediti sa 1 postom.

Kako mislis sve cu srediti sa jednim postom?



Sto se tice Forward declarationa.
U pravu ste, radi sve. Usled silnog sastavljanja klasa u jedan UNIT potkralo mi se jedno Type vise, pa je zbog toga izbacivo gressku...

pozdrav

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Pa mislio sam tako, sto svi zelimo da ti pomognemo, a samo nagadjamo o strukturi tvojih klasa. Da si okacio kod, neko bi odmah ispravio greske. Eto samo toliko.

Pozdrav