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

serialisieren
procedure Serialisieren (FN :String; O :TObject) klappt

deserialisieren
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

Danke Raik

Edit//
deserialisierenfunction Deserialisieren(FN :String; ObjType: &type):TObject; aber wie rufe ich die auf

[Dust Signs]

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

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