Klassen TFundsache und TFensterFrm verbinden
In dieser Version kann
eine Fundsache (ohne die Attribute des Finders) zunächst nur eingegeben
und mit dem Suchen-Button angezeigt werden.
- Starten Sie Lazarus und öffnen Sie das Projekt.
- uFenster.pas mit Editor öffnen.
- Fügen Sie bei uses uFundsache hinzu
// damit kann das Fenster auf Fundsache zugreifen.
- Deklarieren Sie ein Exemplar der KlasseTFundsache unter implementation:
var AktuelleFundsache : TFundsache ;
- Das neue Exemplar AktuelleFundsache erzeugen Sie in der Fenstermethode
TFensterFrm.FormCreate(..) mit der Anweisung :
AktuelleFundsache := TFundsache.Create;
( s. Aufgabe V.09 )
- Implementieren Sie unter private die Methoden :
procedure DatenAktualisieren (var fund : TFundsache);
procedure MaskeAktualisieren (fund : TFundsache);
- Wandern Sie mit der Maus auf eine der beiden Methoden und rufen Sie
mit der rechten Maustaste die Methode "Refactoring - Quelltext vervollständigen" auf.
- Tragen Sie jetzt in die beiden Methoden den Aufruf der jeweiligen Set-
und Getmethoden ein.
============================================================
- Spezifizieren Sie die Ereignismethoden:
- OKBtnClick (Hier rufen Sie Datenaktualisieren auf)
- NeuBtnClick (Hier wird der Bildschirm gelöscht)
- SuchenBtnClick (Hier wird provisorisch MaskeAktualisieren aufgerufen)
- Implementieren Sie diese Methoden. Wenn Sie alles richtig gemacht haben,
geben Sie Ihre Daten zum Testen ein und rufen Sie Hurra! wenn es geklappt
hat.
- Wenn Sie schon fertig sind, lesen Sie bitte das Dokument Klassenbeziehungen
I für Anfänger unter
OOA-OOD-OOP.
