pat_1.5 - Aufgabe

Typisch für OOP ist die Bottom Up - Vorgehensweise, bei der man von unten in der Klassenhierarchie mit der Implementation anfängt, um dann ein fertiges Modul beim nächsten verwenden zu können. Danach hätte sich die Reihenfolge: PERSON - ADRESSE - PATIENT - FENSTER ergeben. Damit hätten wir jedoch erst sehr spät etwas Funktionierendes gesehen.

Ebenso typisch für OOP ist das Zusammenbauen von neuen Applikationen aus schon fertigen Klassen (Konfigurieren), die in einer Bibliothek gesammelt sind. Wir können vorteilhaft die Klassen PERSON und ADRESSE, die von einem früheren Kurs erstellt wurden, benutzen und sparen somit viel Zeit. Die Dokumentationen von uAdresse und uPerson stehen im LAN unter Delphi.

Dazu sind folgende Schritte in dieser Reihenfolge erforderlich:

Eine Vererbung implementieren (PERSON - PATIENT)
Patient ist Unterklasse von Person, von der er alles erbt. Also ist in Patient zu implementieren:

uses ... , uPerson;
Vererbungsbeziehung einbauen: TPatient = class (TPerson)
In Create und Init die gleichnamigen Methoden aus der Oberklasse geerbten Methoden hinzufügen mit dem Zusatz inherited, weil das geerbte Objekt ebenfalls initialisiert werden muss.

Eine Aggregation implementieren (PATIENT-ADRESSE )
Wenn eine Klasse die Dienste einer anderen nutzen will, dann wird die fremde Klasse mit mit uses ... zugreifbar gemacht. In PATIENT wird als neues Attribut Adresse als ein komplexes Komponentenobjekt eingebunden:

uses uAdresse zwischen INTERFACE und type einfügen
Neues Attribut: Adresse : TAdresse; über private einfügen
in Create hinzufügen: Adresse := TAdresse.Create; // Adresse ist ein Objekt (!), muss also mit erzeugt werden

Das ist alles! Damit hat Patient nun alle Attribute und Methoden von Person.

Datentransport in uFenster ergänzen.

Vervollständigen Sie die Aktualisierungsmethoden DatenAktualisieren und MaskeAktualisieren:
- Für die Adressdaten muss ein qualifizierter Bezeichner gewählt werden:
z. B. pat.Adresse.SetStrasse(StrasseEdt.Text); usw.
- die geerbten Personen-Attribute werden so behandelt als wären es Patienten-Attribute.

Testen Sie alle Patienteneinträge!

-------------------- E N D E D E R E R S T E N R U N D E -------------------