[Prog]Wat te maken voor practicum

[Clark3]

Pf, ik zit met een klein probleemke bij die CD-oefening, in het bijzonder bij dit stuk code:

Code: Select all

CD = POINTER TO CDinfo;

		CDinfo =

			RECORD (LijstOO.NodeDesc)

				band: String;

				name: String;

				tracks: Tracks;

				ID: INTEGER;

			END;



		Tracks = POINTER TO TrackInfo;

		TrackInfo =

			RECORD (LijstOO.NodeDesc)

				name: String;

				length: LONGINT;

			END;



		String= ARRAY 50 OF CHAR;

Hiertussen zit een Add en Start procedure..

Code: Select all

	PROCEDURE (i: CD) NodeInfo();

	BEGIN

		OutExt.String("CD ");

		OutExt.String(i.name);

		OutExt.String(", van ");

		OutExt.String(i.band);

	END NodeInfo;





	PROCEDURE (i: Tracks) NodeInfo();

	BEGIN

		OutExt.String("Track ");

		OutExt.String(i.name);

		OutExt.String(", lengte: ");

		OutExt.Int(i.length,0);

	END NodeInfo;





	PROCEDURE PrintNodes(i: LijstOO.Node);

	BEGIN

		i.NodeInfo();

	END PrintNodes;





	PROCEDURE Print*();

	BEGIN

		OutExt.String("Printing your collection:");

		OutExt.Ln();

		c.Enumerate(PrintNodes);

	END Print;

De LijstOO-module is quasi hetzelfde als dien van de RX, gewoon ander namen en commentaar gegeven. Maar het probleem is nu als volgt: Van de moment dat ik ga compileren krijg ik deze melding in mijn System.Log:

pos 1701 err 83 undefined record field

Waarbij Pos 1701 wijst naar 'i.NodeInfo' in de procedure PrintNodes. Ik zie waarschijnlijk weer iets superbanaals over het hoofd maar ik zou dus niet weten wat Iemand een gedacht? Merci

[pidot]

Je moet in je OOLijst module ook een procedure NodeInfo hebben..

Want anders kan je die niet uitbreiden, aangezien je met de lijstoo.node werkt en niet met de cdnode.
Ge wilt dus nu een procedure uitbreiden uit uw oolijst module maar die bestaat nog niet in de module..

dit moet ge er nog bij zetten in uw oolijstmodule:

Code: Select all

PROCEDURE (n : Node) NodeInfo*();

BEGIN

	OutExt.String("default nodeinfo");

	OutExt.Ln;

END NodeInfo;

[Clark3]

Manman merci voor de hulp. Het werkt dus. Nie te geloven dat k daarmee 3 uur in de knoei heb gezeten.