[Erledigt]Serialisieren und Deserialisieren

[kiar]

hallo,

Wollte einige Daten speichern und wollte dies mit Xml realisieren. wenn ich die daten jetzt normal serialisieren und Deserialisiere geht das prima.

Nun wollte ich das ganze eine wenig universeller gestalten :mrgreen: .

serialisieren

Delphi-Quellcode:

procedure Serialisieren (FN :String; O :TObject)

klappt

deserialisieren

Delphi-Quellcode:

function Deserialisieren (FN :String;// Hier fehlt mir was):TObject;

Kann mir mal jemand sagen, wie ich die Funktion mit Sinnvollem fülle und wie ich diese dann aufrufe :wall:

Danke Raik

Edit//
deserialisieren

Delphi-Quellcode:

function Deserialisieren(FN :String; ObjType: &type):TObject;

aber wie rufe ich die auf :wall:

[Dust Signs]

Nimm als zweiten Parameter einen Pointer und caste ihn einfach auf den entsprechenden Typ. Aufrufen sollte doch eigentlich kein Problem sein:

Delphi-Quellcode:

obj := Deserialisieren('12345', @irgendwas);

Dust Signs

[kiar]

hallo,

das zauberwort var typeof

Delphi-Quellcode:

var
 x: TIrgendwas
begin
 x:= Deserialisiere('*.xml',typeof(TIrgendwas)) as TIrgendwas;
end;

raik