|
Registriert seit: 10. Feb 2006
255 Beiträge
Delphi XE2 Professional
|
Re: Objekt incl. untergeordnete objecte
14. Mär 2010, 16:27
Kannst du auch mit RTTI machen, ganz generisch:
Delphi-Quellcode:
procedure assign(Source: TPersistent);
...
case Proptype of
tkInt: SetIntProp(self, Propname, GetIntProp(source, propname));
tkClass: TPersistent(GetObjectProp(self, Propname)).Assign(GetObjectProp(source, PropName));
....
end; //case
....
end; //assign
"Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt)
"Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt)
 mein blog
|
|
|
Zitat
|