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;
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;
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