Einfache Datentypen schnell zusammenbauen?

[Der schöne Günther]

Gedenken wir der Zeiten als ein Mann noch ein Mann war. Wollte man Adressen speichern hat wohl ein einfacher Record gereicht:

Delphi-Quellcode:

   TAdresse = record
      vorname, nachname: String;
      straße: String;
      hausNr: Integer;
   end;

15 Sekunden Tippen und ich bin einsatzbereit.


Mache ich es wie Papa sagt, dann natürlich Interface-referenziert. Das ganze Drumherum mit oder ohne Factory, Service-Locator und allem sei mal weggelassen.

Delphi-Quellcode:

   IAdresse = interface
   ['{1CA3FB79-CBC2-439E-8333-8F2A8F4CA179}']
      function getVorname(): String;
      procedure setVorname(const vorname: String);

      function getNachname(): String;
      procedure setNachname(const nachname: String);

      function getStraße(): String;
      procedure setStraße(const straße: String);

      function getHausNr(): Integer;
      procedure setHausNr(const hausNr: Integer);
   end;

   TMyAdresse = class(TInterfacedObject, IAdresse)
      public
         constructor Create(copyOf: IAdresse = nil);

         // IAdresse
         function getVorname(): String;
         procedure setVorname(const vorname: String);

         function getNachname(): String;
         procedure setNachname(const nachname: String);

         function getStraße(): String;
         procedure setStraße(const straße: String);

         function getHausNr(): Integer;
         procedure setHausNr(const hausNr: Integer);

   end;

Ich will jetzt nicht auf den vielleicht drei Minuten Mehraufwand für das Tippen herumreiten. Aber geht das nicht etwas... komfortabler? Ein sonderlich praxisnahes Beispiel ist das nicht, ja. Aber ich glaube ihr wisst was ich meine.

Ist vielleicht mal jemand über eine Quelltext-Vorlage gestolpert? Irgendwas?