OSZ Handel I
Informatik

D L I B - eigene Klassen
TPerson

S. Spolwig
 

 

[ Informatik | Unterrichtsmaterialien ]

UNIT uPerson;
(* ******************************************************************** *)
(*                                                                      *)
(* K L A S S E : TPerson                                                *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.21                                                   *)
(* Autor       : S. Spolwig, OSZ-Handel I, 10997 Berlin                 *)
(*                                                                      *)
(* Aufgabe     : bildet das Objekt Person ab.                           *)
(*                                                                      *)
(* Compiler    : DELPHI 3.0                                             *)
(* Aenderung   : V. 1.1  15-AUG-98                                      *)
(*                  1.2  04-SEP-98  Datei lesen, schreiben              *)
(*                                  IstGleich                           *)
(*                  1.21 20-JUL-99  procedure Init, Create              *)
(*                  1.22 11-OCT-00  Geschlecht                          *)
(* ******************************************************************** *)
INTERFACE
(* ==================================================================== *)
USES Classes;
type
  TPerson = class (TObject)
    protected
    Name,
    Vorname     : string[20];
    Geburtstag  : string[10];
    Geschlecht  : string[1]; (* m, w *)
    public
    constructor Create;                      virtual;
    procedure   Init;                        virtual;
    procedure   SetName (n: string);         virtual;
    procedure   SetVorName (vn: string);     virtual;
    procedure   SetGeburtstag (gb : string); virtual;
    procedure   SetGeschlecht (g: string);   virtual;
    function GetName       : string;         virtual;
    function GetVorName    : string;         virtual;
    function GetGeburtstag : string;         virtual;
    function GetGeschlecht : string;         virtual;
    function IstGleich (suchpers : TPerson) : boolean; virtual;
    procedure InDateiSchreiben (var fs : TFilestream); virtual;
    procedure AusDateiLesen    (var fs : TFilestream); virtual;
  end; (* TPerson *)
(* -------------------- B e s c h r e i b u n g -------------------------
Oberklasse     : -
Bezugsklassen  : Classes import: TFilestream, read write
                 TAdresse
Methoden
--------
Create
  Auftrag: Person und Adresse erzeugen und Initialisieren
  vorher : -
  nachher: Person ist erzeugt, alle Datenfelder sind leer.
Init
  Auftrag: Person Initialisieren
  vorher : ist erzeugt
  nachher: alle Datenfelder sind leer.
Set...
  Auftrag: Attribut schreiben
  vorher : Person ist vorhanden.
  nachher: Attribut ist gesetzt
Get...
  Anfrage: Attribut aus dem Objekt lesen
  vorher : Person ist vorhanden.
  nachher: -
IstGleich (suchperson : TPerson)  : boolean
  Anfrage: prüfen, ob Person gleich gesuchte Person ist.
  vorher : Person ist vorhanden.
  nachher: IstGleich ist wahr, wenn SuchpersonName und Name übereinstimmen.
InDateiSchreiben (var fs : TFilestream)
  Auftrag: Attribute auf die Festplatte speichern
  vorher : fs ist geöffnet
  nachher: Attribute sind an fs uebergeben
AusDateiLesen (var fs : TFilestream)
  Auftrag: Attribute von der Festplatte laden
  vorher : fs ist geöffnet
  nachher: Attribute sind an Person uebergeben
----------------------------------------------------------------------- *)


 05. April 2006   ©  Siegfried Spolwig

page_top