OSZ Handel I
Informatik

D L I B - eigene Klassen
TAdresse

S. Spolwig
 

[ Informatik | Unterrichtsmaterialien ]


UNIT uAdresse;
(* ******************************************************************** *)
(*                                                                      *)
(* K L A S S E : TAdresse                                               *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.2                                                    *)
(* Autor       : S. Spolwig, OSZ-Handel I, 10997 Berlin                 *)
(*                                                                      *)
(* Aufgabe     : bildet das selbständige Objekt Adresse ab.             *)
(*                                                                      *)
(* Compiler    : DELPHI 3.0                                             *)
(* Aenderung   : V. 1.1  15-AUG-98                                      *)
(*                  1.2  04-SEP-98  Datei lesen, schreiben              *)
(*                  1.21 20-JUL-99  procedure Init                      *)
(* ******************************************************************** *)
INTERFACE
(* ========================== Export ================================== *)
USES Classes;
type
   TAdresse = class (TObject)
     protected
     Strasse     : string[25]; (* Strasse u. Nr *)
     Plz         : string[5];
     Ort         : string[20];
     TelefonNr   : string[12];
     public
     constructor Create;                virtual;
     procedure Init;                    virtual;
     procedure SetStrasse (st: string); virtual;
     procedure SetPlz (p : string);     virtual;
     procedure SetOrt (o : string);     virtual;
     procedure SetTelefonNr(t : string);virtual;
     function GetStrasse : string;      virtual;
     function GetPlz     : string;      virtual;
     function GetOrt     : string;      virtual;
     function GetTelefonNr : string;    virtual;
     procedure InDateiSchreiben (var FS: TFilestream); virtual;
     procedure AusDateiLesen (var FS: TFilestream);    virtual;
   end; (* TAdresse *)
(* -------------------- B e s c h r e i b u n g -------------------------
Oberklasse     : -
Bezugsklassen  : Classes  import: TFilestream, read , write
Methoden
--------
Create
  Auftrag: Objekt erzeugen und initilaisieren
  vorher : -
  nachher: Adresse ist erzeugt; alle Felder sind leer
Init
  Auftrag: Objekt Initialisieren
  vorher : -
  nachher: alle Felder sind leer
Set...
  Auftrag: Attribut schreiben
  vorher : Adresse ist init.
  nachher: Attribut ist gesetzt
Get...
  Anfrage: Attribut aus dem Objekt lesen
  vorher : Adresse ist init.
  nachher: -
InDateiSchreiben (var datei : TFilestream)
  Auftrag: Attribute auf die Festplatte speichern
  vorher : datei ist geöffnet
  nachher: Attribute sind an datei uebergeben
AusDateiLesen (var datei : TFilestream)
  Auftrag: Attribute von der Festplatte laden
  vorher : datei ist geöffnet
  nachher: Attribute sind an Adresse uebergeben
----------------------------------------------------------------------- *)

 05. April 2006   ©  Siegfried Spolwig

page_top