RTTI - Properties setzen

[GuenterS]

Hallo.

Wie ich mit GetPropList die namen der verfügbaren Properties bekomme weiß ich, aber wie könnte ich aufgrund dem dort gefundenen Namen, dieses Propertie eines bestimmten Objektes setzen?

[DGL-luke]

Iie Funktion heißt ganz banal TypInfo.SetObjectProp.

[GuenterS]

Dankeschön,
und wenn ich einen Integer und kein Object setzen möchte dann nehm ich SetOrdProp usw.


aber wie gehe ich mit einem TDateTime Property um?

[shmia]

Zitat von GuenterS:

aber wie gehe ich mit einem TDateTime Property um?

TDateTime ist intern ein Double. Also SetFloatValue

[GuenterS]

Danke das war mir schon klar, aber wie unterscheidet man dann Float Werte von TDateTime Werte?

Das ist sehr interessant, wenn man versucht eine Datenbank zu befüllen und man Datum und FloatFelder hat.

[shmia]

Zitat von GuenterS:

... aber wie unterscheidet man dann Float Werte von TDateTime Werte?

Über den "PropTypeName":

Delphi-Quellcode:

var
   PropInfos: PPropList;
   PropTypeName : string;
   pi : PPropInfo;
begin
...
      GetPropList(obj.ClassInfo, type_kinds, PropInfos);
...

      for i := 0 to prop_count - 1 do
      begin
         s := '';

         pi := PropInfos^[i];
         PropTypeName := pi.PropType^.Name;
         if PropTypeName='TDateTime' then
            ...

[GuenterS]

Super, danke das funktioniert

[shmia]

Was hast du denn vor ?
Etwa published Properties in ein Dataset schreiben und lesen?
(das hab ich hier schon fertig in der Schublade )

[GuenterS]

Genau das, habe ich vor...

Wobei ich das Dataset aber auslass und direkt ein Insert bzw. Update Statement absetzen will.

[GuenterS]

Unter einer Applikation funktioniert das mit dem RTTI schon ganz gut, leider scheint es unter einem Service nicht ganz so tolle funktionieren.

Ist darüber schon etwas bekannt?