Ich habe auf meiner Festplatte noch ein Schmankerl für Retro-Computer-Fans gefunden: Eine Einführung in objektorientiertes Programmieren in Turbo Pascal und Delphi aus dem Jahr 1997.
Das Skriptum habe ich während meiner Schulzeit verfasst und zeigt, wie objektorientiertes Programmieren in Pascal umgesetzt werden kann – was aus dem Grund interessant ist, da Pascal als prozedurale Programmiersprache konzipiert wurde und erst mit „Object Pascal“ mit einigen Elementen aus der OOP umzugehen gelernt hat.
Hier ein Beispiel eines Listings aus dem Skript:
PROGRAM KreisObjekt;
USES crt, graph;
TYPE
KreisTyp = OBJECT
x, y, Radius: INTEGER;
PROCEDURE Zeichnen;
END;
VAR gd, gm: INTEGER;
Kreis: KreisTyp;
PROCEDURE KreisTyp.Zeichnen;
BEGIN
Circle(x, y, Radius);
END;
BEGIN
gd:=detect;
InitGraph(gd, gm, 'C:\PASCAL');
Kreis.x:=20;
Kreis.y:=30;
Kreis.Radius:=20;
Kreis.Zeichnen;
ReadLn;
CloseGraph;
END.
Der Download des Skriptums ist hier möglich: