XML Serialisierer für beliebige DelphiObjecte auf RTTI Basis

**stoxx**

Ich habe da nochmal gebastelt .. wollten sie schonmal ein komplettes Form mit seinen Komponenten in eine XML Datei abspeichern? *grins*

form1.saveToXML(FileName); ??

ich sage mal besser, Code sagt mehr als 1000 Worte

wollten Sie schonmal sowas machen ?

zusammenfalten · markieren

Delphi-Quellcode:

			//==============================================================================

procedure TfrmXMLSerialisierer.FormClose(Sender: TObject; var Action: TCloseAction);

begin

 Self.SaveToXMLContainer('FormAtClose');

end;

//==============================================================================

procedure TfrmXMLSerialisierer.FormCreate(Sender: TObject);

begin

  Self.LoadFromXMLContainer('FormAtClose');

end;

//==============================================================================

procedure TfrmXMLSerialisierer.btnSaveClick(Sender: TObject);

begin

  Self.SaveToXML('Form.xml');

end;

//==============================================================================

procedure TfrmXMLSerialisierer.btnLoadClick(Sender: TObject);

begin

   Self.LoadFromXML('Form.xml');

end;

oder sowas?

zusammenfalten · markieren

Delphi-Quellcode:

			TMyEnum = (meNotset, meEnum1, meEnum2);

{$M+} 

TMyClass = class(TPersistent)  // wenn der Compiler nicht ab und zu spinnen wuerde

                               // kann man auch TObject benutzen 

private

    FString : string;

    FNewDouble: Double;

    FEnum: TMyEnum;

published

  property EnumValue : TMyEnum read FEnum write FEnum;

  property DoubleValue : Double  read FNewDouble write FNEwDouble;

  property StringValue : String  read FString write FString;

end;

//==============================================================================

procedure TfrmXMLSerialisierer.btnSaveContainerClick(Sender: TObject);

var MyObject : TMyClass;

begin

    edt1.SaveToXML('MyEdit.xml');

    Self.stringgrid1.SaveToXMLContainer('MyStringgrid');

    MyObject := TMyClass.Create;

    MyObject.StringValue := DateTimeToStr(Now);

    MyObject.EnumValue := meEnum1;

    MyObject.DoubleValue := 12345.67;

    MyObject.SaveToXMLContainer('MyClass');

    MyObject.Free;

end;

das Projekt ist im Anhang. Es reicht einfach und immer und überall die Unit uBase_XMLSerializer.pas einzubinden.
Für alle Objecte verfügbar.
Eigene Klassen am besten von TPersistent ableiten.

Mit TObject geht es zwar auch (mit {$M+} vor der Klasse)
Aber ab und zu bringt der compiler bei mir komische Fehlermeldungen, und es lässt sich nicht compilieren, erst nach einem fummeligen Neustart geht es wieder.

Vielleicht sollte man die DCU's einmal compiliert lassen und vielleicht sollte man mal die pas Files verstecken...

Das ganze beruht auf dieser Komponente, die aber noch 4 Schwachstellen hatte, bevor sie wirklich rund lief.

http://blog.dragonsoft.us/2008/04/21...delphi-object/

die genauen Änderungen stehen in der uBase_XMLSerializer.pas.

das war der erste Artikel dazu ..

http://www.delphipraxis.net/internal...t.php?t=152078

sooo .. na viel Spaß

wollte ich schon immermal haben ...

XML Serialisierer für beliebige DelphiObjecte auf RTTI Basis

XML Serialisierer für beliebige DelphiObjecte auf RTTI Basis

Forumregeln