[SE] err 72 procedure must be bound to a record of the same

[Glenn]

Hoi allen,

Om te zien of al mijn gegevens bij de ParseInfoConsumer wel goed opgeslagen worden in mijn stationlijst en tramlijst, heb ik een testprocedure geschreven in mijn module XMLInlezen.Mod.

Om een vreemde reden kan ik de node niet uitprinten via polymorfisme. Het lukt wel als ik gebruik maak van TypeTest/TypeGuard en het volgende schrijf:

Code: Select all

IF (node IS MetroParseInfoConsumer.Station) THEN									(* voorlopig maar even uitgeprint via TypeTest/TypeGuard *)

				OutExt.String(node(MetroParseInfoConsumer.Station)^.naam);

			END;

Wanneer ik het wil doen via polymorfisme (zie onderaan) krijg ik steeds volgende error "err 72 procedure must be bound to a record of the same scope" en zegt de de error zit bij de (node : MetroParseInfoConsumer.Station).

Code: Select all

PROCEDURE Test*;

	

		VAR

			file : StringTypes.SimpleTypeString;

			node : OOLijst.ElementNode;

	

	BEGIN

		file := "GoodFile.txt";

		LeesIn(file);

		OutExt.String("Hij gaat nu de eerste Node halen uit de stationlijst en het veld naam van deze node uitprinten");

		OutExt.Ln;

		OutExt.String("De naam van het eerste station is dus : ");

		node := MetroParseInfoConsumer.stationlijst^.GetNode(1);

      node^.Print;

   END Test;



PROCEDURE (node : MetroParseInfoConsumer.Station) Print*();

		

	BEGIN

		OutExt.String(node^.naam);

	END Print;

Kan er iemand verklaren hoe die komt? Ik zou graag gebruik maken van dat polymorfisme want dat lijkt me wel handiger dan telkens die typetest/typeguard te moeten schrijven .

Groet,
Glenn

[Scheder]

Methodes horen bij een klasse, dus die behoren ook in de module van die klasse. Een methode kan nooit gedefinieerd worden buiten de module van de klasse zelf

Dus ik neem aan dat ge die print in Station.Mod zult moeten typen, dan zou het normaal wel moeten werken.

[Glenn]

Methodes horen bij een klasse, dus die behoren ook in de module van die klasse. Een methode kan nooit gedefinieerd worden buiten de module van de klasse zelf

Dus ik neem aan dat ge die print in Station.Mod zult moeten typen, dan zou het normaal wel moeten werken.

k, ik ga het zo eens uitproberen

[Glenn]

Het werkt, bedankt

[Scheder]

Het werkt, bedankt

Dat is heel het principe van Object Georienteerd programmeren.
Een Object is iets op zichzelf, daar moet nix meer bij en daar zit ook nix anders bij int algemeen. Zodat ge uw object met AL zijn functionaliteiten overal kunt gebruiken, door alleen maar het object/de module waarin uw object staat te importeren.

[Glenn]

Het werkt, bedankt

Dat is heel het principe van Object Georienteerd programmeren.
Een Object is iets op zichzelf, daar moet nix meer bij en daar zit ook nix anders bij int algemeen. Zodat ge uw object met AL zijn functionaliteiten overal kunt gebruiken, door alleen maar het object/de module waarin uw object staat te importeren.

Uhu, en ook merci voor uwen uitleg tussen de middag . We hebben nu aparte modules gemaakt voor onze objecten en die methodes derbij gestoken. Das nu wel een pak overzichtelijker .