|
Was ist eine Unit?
. Units sind - in einer Programmeinheit - zusammengefasste Pakete von Prozeduren und/oder Funktionen, die man immer wieder benötigt.
→ Eine Unit ist eine Sammlung/Bibliothek von Deklarationen, Prozeduren und Funktionen.
. Units stehen compiliert (übersetzt) zur Verfügung
. Man benötigt sie:
1. um Wiederholungen in einem oder mehreren Programm zu vermeiden
2. wenn ein Programm die 64 Kilobyte-Grenze überschreitet (Units werden im
Arbeitsspeicher abgelegt)
3. um Zeit (für Compilierung) zu sparen
4. um größere Programme in einzelne Teile zu zerlegen
. werden mit dem Befehl uses eingebunden
. liegen beim Erstellen als *.PAS-Dateien vor
. stehen nach der Compilierung als *.TPU-Dateien bereit, können aber auch mit \"TPUMOVER.EXE\" in die Datei \"TURBO.TPL\" eingebunden werden:
\"tpumover turbo.tpl +unit.tpu\"
. Turbo Pascal stellt Standard-Units zur Verfügung, davon befinden sich \"crt\", \"dos\", \"printer\", \"overlay\" und \"system\" in der Datei \"TURBO.TPL\", andere liegen standardmäßig im Verzeichnis \"..\\UNITS\" (z.B. \"GRAPH.TPU\")
________________________________________
Aufbau und Struktur einer Unit
Teil Syntax Beispiel
Unit-Kopf unit Bezeichner/Name
- Name der Unit muss mit dem Namen der Datei übereinstimmen unit beispiel;
→ \"beispiel.pas\"
→ \"beispiel.tpu\"
1. Interface (Schnittstelle) interface
- Einbindung anderer Units
- Definitionen von Variablen (und ihren Typen) und Konstanten
→ Inhaltsverzeichnis der Unit interface
uses crt, andere_unit;
var beispielsvar : integer;
const x = 25;
procedure beispiel;
2. Implementation - Deklarationen werden mit implementation eingeleitet und mit end; der letzten Prozedur/Funktion beendet. implementation
procedure beispiel
begin
Anweisung(en);
end;
3. Initialisierung - Optionaler Teil, wird beim Ein-binden der Unit zuerst ausgeführt begin
write(\'Unit aufgerufen\');
end.
________________________________________
Vorgehensweise beim Erstellen einer Unit
1. Quelltext der Unit entwerfen (\"DATEI.PAS\")
2. Unit auf Fehler prüfen, compilieren (nicht ausführen, sonst Fehlermeldung) und speichern
3. Varianten der Umwandlung von \"DATEI.PAS\" zu \"DATEI.TPU\"
1. in Pascal: - Menü \'Compiler\' => \'Ausgabeziel\' Festplatte
- Menü \'Compiler\' => \'Compilieren\'
2. in Pascal: - Unit ins Pascal-Verzeichnis \"..\\BIN\" kopieren/speichern
- bei Compilierung d. Programms, wird eingebundene Unit auch compiliert
3. außerhalb von Pascal, externer Compiler: Befehl \"TPC.EXE\" => \"tpc unit.pas\"
=> \"DATEI.TPU\"
Beispiel für die Unit \"unit1.pas\"
Kopf
unit unit1;
1. Teil - Interface
interface
uses crt;
var zaehler : integer;
procedure loesche_bildschirm;
procedure schreibe_zeilen(i : integer);
procedure schreibe_hallo;
2. Teil - Implementierung
implementation
procedure loesche_bildschirm;
begin
clrscr;
end;
procedure schreibe_zeilen(i : integer);
begin
for zaehler:=1 to i do writeln(zaehler,\'. Zeile\');
end;
procedure schreibe_hallo;
begin
writeln(\'Hallo\');
end;
3. Teil - Initialisierung
begin
clrscr;
writeln(\'Die Unit wurde in das Programm eingebunden.\');
end.
|
