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 ?
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?
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 ...