Pokazivac na klasu!?!

[ PeraKojotSuperGenije @ 09.01.2005. 18:01 ] @

Imam klasu TGame i TPawn.
Konstruktor za TPawn izgleda ovako:

Code:

TPawn.Create(game: PTGame);
begin
  ...
  myGame:=game;
  ...
end;

gde je PTGame = ^TGame,
a myGame: PTGame polje klase TPawn.
TGame ima polje board tipa PTBoard = ^TBoard, kao i pawn: PTPawn = ^TPawn.

Pri pozivanju funkcije myGame.board.funkcija iz neke od metoda klase TPawn, javlja se greska EAccessViolation.

Pre nego sto se poziva TPawn.Create poziva se konstruktor TGame.Create.
Takodje se pre poziva TPawn.Create poziva konstruktor TBoard.Create.
TPawn.Create se poziva iz jedne od metoda TGame ovako

Code:

procedure TGame.Metoda;
begin
...
new(pawn);
pawn^:=TPawn.Create(@self, i);
...
end;

U cemu je greska?

[ _v!rus_ @ 09.01.2005. 18:50 ] @

EAccessViolation je greska koja se javlja kada neki pointer pokusa da pristupi delu memorije koji nije prethodno rezervisan za taj proces. Kao kad napravis dinamicku matricu od 100 clanova, pa probas da pristupis 101.-om, mada to zna ponekad i da prodje...

Ne znam da li znas ali moje je da kazem:
Pri radu sa klasama u Delphi-u, ti ne radis zapravo sa instancama klasi nego sa pokazivacima na njih. Delphi to organizuje nevidljivo za tebe, sto znaci...

Code:

var
APawn: TPawn;

Ovde je APawn pokazivac na instancu TPawn-a (koji se zove APawn)!

Prema tome, nemas potrebu za PT*** varijablama.

Posto ti je myGame tipa PTGame ne mozes koristiti mygame.***, probaj sa mygame^.****, mada nisam nikad ovo radio i ne znam da li postoji.

E sad, U OBICNOM PASCALU mora da se radi onako kako si ti to organizovao jer kod njega su instance zapravo instance a ne pokazivaci, ali zato paskal moze funkcijama da prosledjuje samo standardne tipove podataka + pokazivace, a Delphi moze da prosledjuje sve zato sto prosledjuje pokazivace (po referenci) a ne cele klase (po instanci)...
Mozda si prethodno koristio obican Pascal ili C pa si navikao tako, jer to je karakteristicna Pascal struktura (to sa T**** i P****)...

To bi bilo to ako sam dobro svtio tvoj problem

I za svaki slucaj da znas da svaka klasa ima ugradjeni pointer Self koji oznacava trenutnu instancu te klase, mozda ti zatreba da ne bi vracao klasi pokazivac na nju posle konstrukcije...

[ PeraKojotSuperGenije @ 09.01.2005. 20:40 ] @

Nazalost ovo mi nije pomoglo, ali u svakom slucaju hvala. Ovo poslednje sa self

Citat:

mozda ti zatreba da ne bi vracao klasi pokazivac na nju posle konstrukcije...

nisam razumeo.

[ Srki_82 @ 09.01.2005. 23:46 ] @

Cim kazes da koristis klase znaci da radis u Delphi-u (u Pascal-u postoje samo objekti koliko znam) i mogao bi ovako da deklarises klase

Code:
TBoard = class
  .
  .
  .
end;

TGame = class;

TPawn = class
  .
  MyGame: TGame;
  .
  constructor Create(aGame: TGame);
  .
  .
  .
end;

TGame = class
  .
  Pawn: TPawn;
  Board: TBoard;
  .
  procedure Metoda;
  .
  .
end;

constructor TPawn.Create;
begin
  MyGame := aGame;
  .
  .
  .
end;

procedure TGame.Metoda;
begin
  .
  Pawn := TPawn.Create(Self);
  .
  .
end;

[ _v!rus_ @ 10.01.2005. 02:28 ] @

Citat:

Nazalost ovo mi nije pomoglo, ali u svakom slucaju hvala. Ovo poslednje sa self

Citat:

mozda ti zatreba da ne bi vracao klasi pokazivac na nju posle konstrukcije...

nisam razumeo.

Video sam gore u tvom kodu da si koristio @self...
@ je operator AddressOf, a posto je Self sam po sebi vec pointer na instancu klase, time si zapravo napisao AddressOf(AddressOf(Self^)) , tj. Pokazivac na pokazivac na klasu, samo sam hteo da ti kazem sta je Self.

Da li je problem i sa mygame.*** ili SAMO sa mygame.board.****?

@Srki: Pascal RADI sa klasama, samo nema rezervisanu rec [bold]class[/bold], nego programer treba da napravi pokazivac na objekat da bi mogao da ga prosledjuje funkcijama. Jedino sto je Delphi uveo je rezervisana rec class koja oznacava pokazivac na tip object i ima dodatne optimizacije za taj tip podatka. Objekti se koriste u pascalu jos od verzije 6, mislim (u 7 ih ima sigurno). Uostalom klasa po OOP definiciji i jeste naziv za neistancirani objekat, odnosno pokazivac na objekat (objekat = instanca klase). Secam se kad sam radio u pascalu da sam za svaki objekat morao da pravim
TSomething = object
PSomething = ^TSomething
Zato mi je njegov kod izgledao kao tipicna Pascal struktura.

[ Rapaic Rajko @ 10.01.2005. 13:18 ] @

U principu, sve sto su ti kolege napisale gore stoji, sto ce reci da je pozeljno da koristis reference; ali moze da se radi i onako kako si ti napisao u prvom postu...

Code:

myGame:=game;

Nesto nisam video ovde new(myGame)...? Osecam da sam te sad zbunio, hehe. Gornja linija je KOPIRANJE sadrzaja jednog pointera u sadrzaj drugog pointera. A drugi pointer, nisi mu dodelio memoriju i sta sad? Ako si mislio da ovde radi dodeljivanje REFERENCI, varas se; to u Delphi-ju moze, ali samo sa INSTANCAMA objekata, ne i sa pointerima na instance.

Rajko

[ _v!rus_ @ 10.01.2005. 14:29 ] @

U pravu je Rajko, nije mi ni meni palo na pamet da treba rezervisati memoriju i za sam pointer, posto je u pitanju pokazivac na pokazivac na...Oh, well...(*zvuk pucnja iz pistolja*:-)

[ jablan @ 10.01.2005. 14:45 ] @

Srki, preklinjem te, izbaci tu sliku.