OOP zapouzdrenost – Pascal – Fórum – Programujte.com

Zdravim, mel bych takovy jeden problem:

   type cGraf=object

                private

                  Graph:tGraf;

                  pole:^cPole;

                  text:^cSoubor;

                public

                  constructor Init;

                  procedure VytvorGraf;

                  destructor Done;

                end; {cGraf}

V tomhle kousku kódu chyba snad ani není (rep. nevidím ji tam). Nejspíš bude problém právě u deklarace cPole. Nejlepší by bylo, kdyby si to sem dal celé.

pokud se nemylim, timto vytvoris pouze datovy typ.. pokud chces jeste vytvorit i globalni promennou tak musis pomoci var

To marlog : No ja si myslím, že chyba bude v tom, že ako píšeš, že chceš pracovať s poslednými dvoma teda atribútmi pole a text, ale tie máš deklarované v sekcii private a to znamená, že nemôžu byť použité globálne ale môžu k nim pristupovať len členské metódy. Dynamicky k nim samozrejme môžeš pristupovať v rámci členských metód.

to KIIV: no ja bych rekl ze tim vytvoris pametove misto, ktere obsahuje ukazatel na napr. cPole
ale s tim var mas asi pravdu, jsem myslel, ze to pujde tak, ale pomoci varu by to melo slapat taky

to jozo0025: ja k nim pristupuji pomoci metod ;)

diky vsem za odpovedi, vyresil jsme to tim VARem
kdyby byl jeste problem tak napisu sem :) jakoze myslim, ze i bude :D

Jediný problém může být v tom, že máš typy cPole a cSoubor definované buď až za definicí typu cGraf nebo někde v neveřejné části (za implementation) nějaké jiné jednotky, kam cGraf nevidí. S proměnnými (var) to nemá nic společného, tady zatím pracuješ jenom s typy (btw, docela by mě zajímalo, jak se ti to tím varem podařilo vyřešit).

to Microsoft: tak hodil jsme to do casti Implementation a pak: var ...
ale ted mi to jede i tak, jak to mam v prvni postu, upravil jsem vsechny unity s objecty a uz to frci :) akorat netusim
kde byla ta chyba, jen jsme si projel zdrojaky opravil takove prkotiny a uz to pak jelo :)
ted se mi tam pro zmenu nekde pokazde ztrati 2 kB v Heapu :D ale tu se uz doresi pomoci trasovani ;)