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

----------------------------------------------------------------------- *)