Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   TObjectList mit polimorphen Objecten zum Speichern (https://www.delphipraxis.net/48459-tobjectlist-mit-polimorphen-objecten-zum-speichern.html)

Taladan 25. Jun 2005 18:11


TObjectList mit polimorphen Objecten zum Speichern
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Zusammen.

Hier eine Unit von mir, mit dem man recht leicht Objectlisten mit unterschiedlichen Objekten speichern kann.

Alle publisched Property´s im String, Integer, Boolean und Variant Format der Objecte werden automatisch ausgelesen und gespeichert. Neue Objecte können vom TPersistentobject TBaseObject abgeleitet werden. Diese werden beim auslesen automatisch erkannt und werden können dann auch gespeichert werden.

Ich stelle diese Unit bereit in der Hoffnung, diese noch ein wenig weiter entwickeln zu können, um später immer mehr Elemente speichern zu können. Einziges Manko, worauf man achten sollte, man muß zusätzlich erstellte Objekte währen der Laufzeit nochmalig Registrieren, damit es funktioniert.

Hier sind im Momet zwei Objecte TName und TVorteil als Beispiel eingefügt worden.

Würde mich freuen, wenn ihr Verbesserungen mir zu kommen laßt oder hier Postet, dann werde sie nach einen kurzen Test hier in einer Neuen Version gepostet

dahead 25. Jun 2005 22:52

Re: TObjectList mit polimorphen Objecten zum Speichern
 
Hallo!

kann es sein, dass die unit "daten.pas" fehlt?

Code:
...

 property Items[Index:Integer]:TBaseObject read GetItem;
  end;

implementation

uses Daten;


...

Taladan 26. Jun 2005 00:35

Re: TObjectList mit polimorphen Objecten zum Speichern
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ups, richtig die Unit Daten fehlt. Hier werden jedoch lediglich die zusätzlichen Typen deklariert. Hier meine Momentan aktuelle Daten Unit. Man kann jedoch nur empfehlen, diese Ableitungen mit in die
empfehle ich auch, außer bei sehr vielen neuen Typen, so wie es bei mir werden wird, diese in der selben Unit zu kapseln.

PS: meine unit daten heißt mitlerweile Data. entweder im Code umbennen oder die Datei umbenennen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz